Ввести три числа четные числа возвести в квадрат не четные оставить без изменений!!! помогите плиз
Ввести три числа четные числа возвести в квадрат не четные оставить без изменений!!! помогите плиз
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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
Не нашли ответ?
Похожие вопросы