Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Паскаль, ошибка Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла Var a: array [1..5] of integer; begin begin a := random(50...
7. Вычислите десятичные эквиваленты следующих чисел: а) 1728; б) 2EA16: в) 1010102; г) 10,1; д) 2436...
Ниже в табличной форме представлен фрагмент базы данных «Отправление поездов дальнего следования»: Пункт назначения Категория поезда Время в пути Вокз...
Написать задачи на языке Pascal: 1. Возвести число в квадрат. 2. Даны три числа. Найти среднее арифметическое трех чисел. 3. Найти значение выражения...
Что такое идентификатор в Паскале?...
Все предметы 
