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

Пример

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

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

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

Question

Информатика

Денуся

23 марта, 03:10

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

Пример

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

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

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

+1

Ответы (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