Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Из каких элементов строится изображение?(растворое и векторное изображения)Какая информация сохраняется во внешней памяти?( растворое и векторное изоб...
Принципиальным отличием электронной таблицы от обычной является: 1. нет правильного варианта ответа; 2. возможность автоматического пер...
1) К прикладным программам относятся: 1 Текстовые редакторы 2 Графические редакторы 3 Бухгалтерские программы 4 Табличные процессоры 2) в игре поле чу...
Дан алгоритм для Робота: алг нач нц 53 раз вправо; закрасить кц кон Робот выполнит 53 шагов вправо и закрасит эти клетки, если не будет встр...
Совокупность технических устройств, предназначенных для кодирования, обработки, хранения и передачи информации в цифровой форме называют? А) информаци...
Все предметы 
