С клавиатуры вводится число, определить количество цифр и найти сумму этих чисел. Паскаль.

Ответы (1)

Вилич 23.02.2025 2

Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n0 do begin
    d:=n mod 10;
    Inc(k);
    s:=s+d;
    n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.

Тестовое решение:
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ