Вопрос по информатике:
из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.09.2017 23:34
- Информатика
- remove_red_eye 11197
- thumb_up 70
Ответы и объяснения 1
Program n1;
Uses CRT;
Var a,b,c,k,n,i: integer;
begin
ClrScr;
writeln('vvedite n');
readln(n);
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
If a+b+c=n then
begin
write(i:4);
k:=k+1;
end;
end;
if k=0 then writeln('takih chisel net');
readln
end.
- 17.09.2017 18:49
- thumb_up 57
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.