составить программу для решения задачи
Дополнительные материалы:
Ответ
1
Можно короче
Program School
var a, S: real;
begin
reagln (a);
if a > 5 then S := a*a*a else S := a*a;
writeln (S);
end.
Program School
var a, S: real;
begin
reagln (a);
if a > 5 then S := a*a*a else S := a*a;
writeln (S);
end.