Лучшие помощники
- 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
·
Хороший ответ
4 апреля 2023 12:11
Остались вопросы?
Еще вопросы по категории Информатика
Что такое поле? Какую информацию оно содержит?...
Помогите пожалуйста сделать?...
Назовите разновидности программ прикладного назначения? кто использует прикладные программы общего назначения?...
1.Что такое электронная почта? 2.Из чего состоит электронное письмо? 3.Где располагается почтовый ящик пользователя? 4.Что представляет собой электр...
1. Сколько цветов содержится в палитре растрового рисунка, если на кодирование каждого пикселя отводится 7 бит? 2. Какой объем видеопамяти необходим д...
Все предметы 
