Вопрос по информатике:
Найти все целые трёхзначные числа сумма цифр которых равна 6.Pascal ABC.Срочно
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
Пожаловаться
- 13.01.2018 16:24
- Информатика
- remove_red_eye 13952
- thumb_up 24
Ответы и объяснения 2
Var a,b,c,i:integer;
begin
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 = 6 then writeln(i)
end;
readln
end.
begin
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 = 6 then writeln(i)
end;
readln
end.
Пожаловаться
- 14.01.2018 20:29
- thumb_up 38
Var
a,b,c: byte;
Begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if (a+b+c = 6) then
WriteLn(a,b,c);
End.
Вывод:
105
114
123
132
141
150
204
213
222
231
240
303
312
321
330
402
411
420
501
510
600
a,b,c: byte;
Begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if (a+b+c = 6) then
WriteLn(a,b,c);
End.
Вывод:
105
114
123
132
141
150
204
213
222
231
240
303
312
321
330
402
411
420
501
510
600
Пожаловаться
- 15.01.2018 04:15
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы