Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Фотографию размером 1024 × 2048 пикселей сохранили в виде несжатого файла. Для хранения информации о цвете каждого пикселя использовали 4 байта. Опред...
В кодировке UTF-16 каждый символ кодируется 16 битами. Влад написал текст (в нём нет лишних пробелов): «Мята, тыква, огурец, артишок, патиссон, картоф...
Сколько битов содержится в одном байте? () 8 () 2 () 1024 () 10 Сколько байтов в слове бит? () 24 () 8 () 3 () 2 Сколько битов в слове байт? () 24 ()...
X ∨ ¬(Y ∨ ¬(X ∧ Y))....
Значение арифметического выражения: 32^540 + 16^231 - 2^10 записали в системе счисления с основанием 2. Сколько цифр «1» содержится в этой записи?...
Все предметы 
