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

Oladushek3000 Oladushek3000    2   06.08.2019 16:40    1

Ответы
Ilyauhdhbtx Ilyauhdhbtx  04.10.2020 01:24
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика