Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
Ответ: var
a, s: integer;
begin
read(a);
s := 0;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
writeln(s);
end.
a, s: integer;
begin
read(a);
s := 0;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
writeln(s);
end.
0
·
Хороший ответ
5 апреля 2023 06:30
Остались вопросы?
Еще вопросы по категории Информатика
файл презентации созданный с помощью программы powerpoint имеет расширение 1) ppt (pptx) 2) txt 3) pas 4) bmp...
Написать программу, которая выводит на экран четверостишие: Унылая пора! Очей очарованье! Приятна мне твоя прощальная краса – Люблю я пышное природы у...
Caps Lock - это клавиша: а) включения дополнительной клавиатуры; б) фиксации ввода заглавных букв; в) замены символов; г) вставки символов....
1)Что понимается под формотированиме текста?В чём основная цель формотирования? 2)Что можно изменять в процессоре форматирование символов? 3)Что можн...
Перед тобой простой рисунок. Поработай вычислительной машиной и закодируй необходимую строку рисунка. Закодируй 3 строчку....
Все предметы 
