Решение
var
x, y, z: integer;
begin
readln(x, y, z);
if (x+y+z)>(x*y*z) then write(x+y+z) else write(x*y*z);
end.
Если есть вопросы, пиши.
Дели числа на 2 пока будет не возможно пото посчитай 2 и
все
var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.
Класс- абстрактное понятие, объект его физическая величина
Дай поесть и напои и скажи иди