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

Question

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

Comments

в 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;

---

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

Answer 1

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.