formula = x * y*y + sqrt(x) - sqrt((x*x*x) + (z*z*z*z));
Var
i, k, n: integer;
begin
write('Введите натуральное число N-> ');
readln(n);
k := 0;
i := 3;
while i <= n do
begin
k := k + 1;
i := i + 3;
end;
writeln('Результат: ', k)
end.
Тестовое решение:
Введите натуральное число N-> 1651
Результат: 550
Var c,x,y: real;
begin
readln (x);
readln (y);
if x>y then
c=x*y
else
c=x+y;
print c
end.
Приложение.......................................................
1) = ^А*С+А*В*^С
2) С*(^А+В)+А*В*^С