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

1
Var
   A:integer;
Begin
WriteLn('Введи число.');
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);
ReadLn
End.
Ну или так:
Var
A:integer;
Begin
WriteLn('Введи число.');
ReadLn(A);
if (A mod 2=0) then begn A:=sqr(A); WriteLn('Квадрат введённого числа равен: ',A); end
else begin A:=((A mod 100)div 10)+(A mod 10)+(A div 100); WriteLn('Сумма цифр введённого числа равна: ',A); end;
ReadLn
End.
Var
A:integer;
Begin
WriteLn('Введи число.');
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;
ReadLn
End.
var a:integer;
упс.я нечаянно)

Ответы и объяснения

  • Участник Знаний
2014-03-01T14:32:00+04:00
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.