Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
Ответ: 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
Остались вопросы?
Еще вопросы по категории Информатика
Доступ к файлу book.txt осуществляется по протоколу ftp. Файл находится в папке science на сервере rebook.ru. Запиши адрес этого файла в сети...
По каналу связи передаются сообщения, содержащие только семь букв: А, Б, Г, И, Н, Р, Т. Для передачи используется двоичный код, удовлетворяющий услови...
растровый файл содержащий цветной рисунок имеет объем 200 кбайт палитра из 16 цветов. какой размер может иметь рисунок в пикселях?...
Что нужно сделать что бы нарисовать "солнце"в графическом редакторе "paint".Помогите пожалуйста,и желательно чем больше пунктов тем лучше))Главное пра...
На рисунке — схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, К, Л, М, Н, П. По каждой дороге можно двигаться только в одном направлении, указанно...
Все предметы 
