Ввести 3 числа чётные возвести в квадрат, а не чётные оставить без изменений

Ответы:

Leyla Orehova

23-08-2018 10:07

Var a,b,c:integer;begin Read(a,b,c);If a mod 2=0 thena:=a*a;If b mod 2=0 thenb:=b*b;If c mod 2=0 thenc:=c*c;Writeln(a,,b,,c)end.

Также наши пользователи интересуются:

Почему повесть Бедная Лиза заканчивается трагично?Сыйлык ненің белгісі ?

Картинка с текстом вопроса от пользователя Маргарита Петренко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Ввести 3 числа чётные возвести в квадрат, а не чётные оставить без изменений» от пользователя Маргарита Петренко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!