Написать программу если число чётное то делим на 2 . Если ничтое то возводим В квадрат
Ответы на вопрос
Ответил Nekit455
0
var a: integer;
begin
readln(a);
if a mod 2=0 then writeln (a/2)
else writeln (sqr(a));
end.
Программа представлена на языке Pascal.
Новые вопросы
Другие предметы,
1 год назад
Русский язык,
1 год назад
Математика,
7 лет назад
Литература,
7 лет назад
Математика,
8 лет назад
История,
8 лет назад