помогите !!написать программу которая для 3х значного числа если оно четное

в pascalabc?

Дар

Да

Var   A:integer;BeginWriteLn('Введи число.');ReadLn(A);if (A mod 2=0) then A:=sqr(A)else A:=((A mod 100)div 10)+(A mod 10)+(A div 100);WriteLn(A);ReadLnEnd.

Ну либо так:Var A:integer;BeginWriteLn('Введи число.');ReadLn(A);if (A mod 2=0) then begn A:=sqr(A); WriteLn('Квадрат введённого числа равен: ',A); endelse begin A:=((A mod 100)div 10)+(A mod 10)+(A div 100); WriteLn('Сумма цифр введённого числа одинакова: ',A); end;ReadLnEnd.

Var A:integer;BeginWriteLn('Введи число.');ReadLn(A);if (A mod 2=0) then begin A:=sqr(A); WriteLn('Квадрат введённого числа равен: ',A); endelse begin A:=((A mod 100)div 10)+(A mod 10)+(A div 100); WriteLn('Сумма цифр введённого числа одинакова: ',A); end;ReadLnEnd.

var a:integer;

упс.я нечаянно)

Var
A: integer;

begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа одинакова: ', A);
end;
end.