Страница 1 из 1
помогите пожалуйсто
Добавлено: 13 янв 2008, 20:34
Milionaire
1. Даны действительные числа x, y, z. Вычислить : min не умножить на 2 а в квадрате
min2(x+y+z/2,x*y*z)+1.
2. Даны натуральные числа n, A1,...,An. Определить количество членов последовательности кратных 3.
Re: помогите пожалуйсто
Добавлено: 13 янв 2008, 21:15
Serge_Bliznykov
условие задачи №1 не понял...
а вторая задача - пошлейшая банальщина:
Код: Выделить всё
Count:=0; {счётчик чисел, кратных 3}
for i:=1 to n do
if (A[i] mod 3) = 0 then Inc(Count);
описание переменных, ввод и вывод оставляю доделать Вам.
Re: помогите пожалуйсто
Добавлено: 13 янв 2008, 21:23
Milionaire
плохо дело
Re: помогите пожалуйсто
Добавлено: 13 янв 2008, 22:08
Serge_Bliznykov
а что плохо то? Это мне вместо благодарности, да?..
кстати, в таком написании я понял, что нужно по первой задаче сделать!!
Правда, внутри меня смущает Z/2 - вы уверены, что у Вас только Z делиться пополам? а не вся сумма (x+y+z) ? в исходной задаче, наверняка, была формула?
вы бы её написали в любом граф.редакторе или в ворде и выложили в виде картинки...
а решение (для того, что у Вас написано):
Код: Выделить всё
var
x, y, z, r : real;
function min(P1,P2:real):real;
begin
if P1<P2 then
min:=P1
else
min:=P2;
end;
begin
WriteLn('Vvedite X, Y, Z');
Readln(X);
Readln(Y);
Readln(Z);
r := min(x+y+z/2,x*y*z);
r := r*r + 1;
writeLn('Result = ',r:5:2);
end.
Re: помогите пожалуйсто
Добавлено: 13 янв 2008, 22:35
Milionaire
ну вот смотрите