Вопрос по информатике:
Надо решить задачу используя алгоритмическую структуру "цикл" : Найти все трехзначные числа сумма цифр которых равна 8.
- 06.08.2018 16:04
- Информатика
- remove_red_eye 7162
- thumb_up 26
Ответы и объяснения 1
Var i,t,s:integer;
Begin
For i:=100 to 999 do
Begin
t:=i;s:=0;
While t>0 do
Begin
s:=s+t mod 10;
t:=t div 10;
End;
if s=8 then write(i,' ');
End;
readln;
end.
- 07.08.2018 18:42
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.