Лучшие помощники
- 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 умножь на 2 (б-неизвестное натуральное число) выполняя первую из них, омега...
укажите максимальную по номиналу цифру шестиричной системы счисления...
Алфавит некоторого языка состоит из 64 символов. За сколько секунд передать текст из 2000 символов. если скорость передачи данных 50 байтов в секунду....
Паскаль 1. Составить программу для нахождения наименьшего числа из трех. 2. Написать программу на языке программирования Паскаль, которая будет соотв...
Для числа 12 определите значение логического выражения (О или 1): не (число чётное) или не (число кратно З)....
Все предметы 
