Лучшие помощники
- 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 байта. Фотографию размером 1024 на 1536 пикселей сохранили в виде несжатого файла. Определите размер пол...
Укажите основную позицию больших пальцев на клавиатуре • shift-shift •alt-alt •space-space •a-o...
Каким образом можно вывести на экран вещественное число в формате с фиксированной запятой?...
Файл содержит текст. Программа подсчитывает количество прописных латинских букв в тексте. В программе пропущена одна команда. Запишите недостающую ком...
Устройство для хранения информации на компьютере....
Все предметы 
