Ответы на вопрос:
var
d, k: integer;
begin
write('запишите число: ');
readln(d);
while d > 0 do
begin
k : = k + (d mod 10);
d : = d div 10;
end;
writeln(k);
end.
Популярно: Информатика
-
тыпик04.11.2021 16:56
-
upsbeats28.03.2022 21:56
-
Farman200124.08.2022 11:19
-
Т121612.04.2022 11:13
-
саша428719.05.2021 03:30
-
kondratenkoari124.12.2022 14:53
-
vadim8876826.07.2022 17:05
-
lera78473837417.11.2021 16:48
-
ivanmoskvin17714.02.2021 09:04
-
Dani0048006.04.2021 21:37