Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Используя функции DIV и MOD составьте выражения для определения суммы первой и последней цифры любого трехзначного произвольно взятого числа X...
какие из приведенных ниже величин целесообразно представлять с помошью таблиц? величины: список учеников класса, рост учеников класса, средний рост уч...
Несжатое растровое изображение размером 256 х 64 пикселей занимает 16 Кбайт памяти. Каково максимально возможное число цветов в палитре изображения?...
Что является минимальным объектом используемым в текстовом редакторе...
Переведите число 59, записанное в 10-й системе счисления в 2-ю, 8-ю и 16-ю системы счисления. Запишите решение и ответ....
Все предметы 
