Автор - Lizasmirnoff14 7 лет назад

задано произвольное целое цисло . Если оно больше 50, то нужно уменьшить его в 2 раза, в противном случае возвести в квадрат.
Паскаль

Ответ

Автор - tsstgs

var a:integer;

begin

readln(a);

if a>50 then

a:=a/2;

else a:=a*a;

Writeln(a);

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2026 Все права защищены Политика конфиденциальности Контакты