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

Пример

Введите целое число 1234

Сумма цифр числа 1234 равна 10

2. Вычислить в Паскале степень числа, используя цикл while

Question

Информатика

Мелентий

9 октября, 22:09

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

Пример

Введите целое число 1234

Сумма цифр числа 1234 равна 10

2. Вычислить в Паскале степень числа, используя цикл while

+4

Ответы (1)

Знаешь ответ?

Даруня · 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.

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

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

Пример

Введите целое число 1234

Сумма цифр числа 1234 равна 10

2. Вычислить в Паскале степень числа, используя цикл while