Ответы на вопрос:
Можно выложить видео в историю, либо нажать на нижний правый квадратик и выбрать видео.
var a,s: integer;
begin
write ('введите число: ');
readln(a);
repeat
s: =s+a mod 10;
a: =a div 10
until a=0;
write ('сумма цифр: ',s);
end.
a mod 10 - эта операция определяет последнюю цифру числа (остаток от деления на 10)
первоначально sum равно 0
sum: =sum+(a mod 10) - накапливаем сумму всех цифр поочерёдно
Популярно: Информатика
-
Roman4ik2316.04.2023 13:56
-
marvin454730.10.2022 20:37
-
movsisjan8823.01.2020 01:23
-
zLimboz07.04.2020 07:33
-
такко16.01.2020 03:56
-
настя757923.06.2023 14:05
-
HELPPP1108.04.2022 07:59
-
Ilonka273410.06.2023 12:19
-
natab0208.01.2020 07:21
-
Рара15рара101.06.2022 13:05