1. Ввести целое число и найти сумму его цифр. Пример Введите целое число 1234 Сумма цифр...

Question

1. Ввести целое число и найти сумму его цифр.
Пример
Введите целое число 1234
Сумма цифр числа 1234 равна 10
2. Вычислить в Паскале степень числа, используя цикл while

Answer 1

Var
a, Summ:integer;
begin
write('Введите число ');
readln(a);
Summ := 0;
while a > 0 do
begin
Summ := Summ + a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', Summ);
end.