Задано произвольное целое число. Если они больше 50,то уменьшаете его в два раза, в противном случае возвести в квадрат.
Ответы
Ответ дал:
0
var
n: integer;
begin
read(n);
if n > 50 then
writeln(n / 2)
else
writeln(n * n)
end.
n: integer;
begin
read(n);
if n > 50 then
writeln(n / 2)
else
writeln(n * n)
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад