Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Чем отличается непрерывный сигнал от дискретного? 2. Что такое частота дискретизации и на что она влияет? 3. Какие звуковые форматы вы знаете? 4. Ка...
Выполните вычитание двоичных чисел 1. 11010-1101= 6. 10111-1001= 2. 1101-110= 7. 111011-11001= 3. 1101-111= 8. 110111-11100= 4. 10001-1011= 9. 1111...
Емкость USB флешки 256Мбайт. Какова емкость в USB флешки в байтах битах килобайтах информатика 8 кл...
Продумайте состав, типы полей и ключ однотабличной базы данных: а) ТУРАГЕНТСТВО; б) ВИДЕОТЕКА; в) АВТОСАЛОН; г) РЕГИОНЫ РФ....
Найдите значение логического выражения ________ (х<3)&(x<2) для указанных значений числа х: 1) 1 2)2 3)3 4)4...
Все предметы 
