ввести три числа четные числа возвести в квадрат не четные оставить без изменений!!! помогите плиз
Answers & Comments
Lacote0two
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
Answers & Comments
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