Question

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

Answer 1

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

Answer 2

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.

Answer 3

Для решения данной задачи, вам нужно ввести три числа. Затем, если число четное, возвести его в квадрат, а если число нечетное, оставить его без изменений.

Пример решения:

Предположим, что вы ввели числа 2, 3 и 4. Тогда результат будет следующим: - Число 2 является четным, поэтому его нужно возв