Лучшие помощники
- 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. У лепестковой диаграммы оси берут начало из нижнего л...
Большая интегральная схема (БИС) представляет собой......
Как это решать...
несжатое растровое изображение размером 128х128 пикс. занимает 2Кб. памяти. Каково максимально возможное число цветов в палитре изображения?...
Все предметы 
