помогите пожалуйсто

[Milionaire]

1. Даны действительные числа x, y, z. Вычислить : min не умножить на 2 а в квадрате


min2(x+y+z/2,x*y*z)+1.



2. Даны натуральные числа n, A1,...,An. Определить количество членов последовательности кратных 3.

[Serge_Bliznykov]

условие задачи №1 не понял...
а вторая задача - пошлейшая банальщина:

Код: Выделить всё

  Count:=0; {счётчик чисел, кратных 3}
  for i:=1 to n do
    if (A[i] mod 3) = 0 then Inc(Count);

описание переменных, ввод и вывод оставляю доделать Вам.

[Milionaire]

плохо дело

[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.

[Milionaire]

ну вот смотрите