Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
3. Что такое тело цикла? Для чего нужно тело цикла?...
Некоторый алфавит содержит 32 символа. Сообщение состоит из 40 символов. Определите информационный объем сообщения в битах....
с каких слов начинается описание фактов: я умею..., для того чтобы..., я знаю, что..., я знаю, как...,...
ОЧЕНЬ СРОЧНО Проанализируйте адреса следующих документов: 1) http://inf.1 september.ru/2007/11/01.htm 2) http://fipi.ru/view/sections/218/docs/515.htm...
Какое количество ячеек имеет оперативная память объёмом 512 Мбайт?...
Все предметы 
