Ввести три числа четные числа возвести в квадрат не четные оставить без !

295

314

Посмотреть ответы 3

Ответы на вопрос:

kriwonos

Информатика

4,5(7 оценок)

Var i: integer; a: array[1..3] of integer; begin write('введите три целых числа: '); read(a[1],a[2],a[3]); for i: =1 to 3 do begin if a[i] mod 2=0 then a[i]: =sqr(a[i]); write(a[i],' ') end end. пример выполнения введите три целых числа: 17 -8 14 17 64 196

1castiel03

Информатика

4,7(47 оценок)

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.

karolina85

Информатика

4,6(83 оценок)

Var x, y, z: integer ; begin x : = 19; y : = 3; z : = y * 2; y : = x mod y; x : = x - z; y : = y + z; writeln('x = ', x, ', y = ', y, ', z = ', z); end. вывод x = 13, y = 7, z = 6