Предмет: Информатика,
автор: nastya2120
составить программу для решения задачи
Приложения:
Ответы
Автор ответа:
0
Можно короче
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.
Интересные вопросы
Предмет: Математика,
автор: csgokpyt12345
Предмет: Литература,
автор: kymbata710
Предмет: Алгебра,
автор: FDdog
Предмет: Биология,
автор: Gimbarr96