Ответы на вопрос:
var
n, i, count, sum: integer;
begin
Writeln('Ввидете число: ');
Read(n);
count := 0;
while n <> 0 do
begin
i := n mod 10;
sum += i;
count += 1;
n := n div 10;
end;
Writeln('Сумма всех цифр: ', sum);
Writeln('Количество цифр: ', count);
end.
Тестовое решение
Введите число:
51231
Сумма всех цифр: 12
Количество цифр: 5
Популярно: Информатика
-
Эхэхэхэххэ27.01.2023 04:20
-
milanaegorova9013.05.2022 23:02
-
Kseniya2007102.04.2021 22:46
-
Asimaaa15.05.2023 12:19
-
мидина531.08.2021 01:08
-
Hutorttt27.07.2021 01:07
-
mrtwesor06.01.2021 06:03
-
хорошистка25624.08.2020 08:15
-
nikita500001111111.04.2021 02:40
-
karinakovalenko212.02.2021 04:20