Ввести 3 числа чётные возвести в квадрат, а не - вопрос №61414053 от оаилпаидшп 30.07.2020 16:07

Question

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

оаилпаидшп · Answer

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....