Лучшие помощники
- 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
·
Хороший ответ
4 апреля 2023 12:11
Остались вопросы?
Еще вопросы по категории Информатика
Отметьте верные утверждения. 1. Розу ветров можно построить с помощью лепестковой диаграммы. 2. У лепестковой диаграммы оси берут начало из нижнего л...
Пользуясь дополнительными источниками информации,ответьте на следующие вопросы: 1)Один из языков программирования называется Ада.Каково происхождение...
Выполните вычитание двоичных чисел a)1011-101,11 b)1101,101-1001,01...
Определите значение переменной в после выполнения фрагмента алгоритма, представленного следующей блок-схемой. a:=9 b:=3 c:=1 да a=b нет C:=c+(...
Для числа 1001 определите значение логического выражения (в ответе запишите 0 или 1): не (число четное) или не (число кратно 3)....
Все предметы 
