Ответы
Ответ дал:
6
var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
Тестовое решение:
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
Тестовое решение:
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
Вас заинтересует
10 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад
7 лет назад