Вопрос по информатике:
Найти все трех значные числа где сумма первого и второго равна третьей
- 09.12.2017 12:08
- Информатика
- remove_red_eye 18187
- thumb_up 8
Ответы и объяснения 2
112,123,134,145,156,167,178,189
213,224,235,246,257,268,279
314,325,336,347,358,369
415,426,437,448,459
516,527,538,549
617,628,639
718,719
819
- 01.01.1970 00:00
- thumb_up 2
Var z1,z2:byte;
begin
for z1:=1 to 9 do begin
for z2:=0 to 9-z1 do begin
writeln(z1,z2,z1+z2);
end;
end;
end.
По просьбе автора задачи - вариант с 3 циклами
var x,y,z:byte;
begin
for x:=1 to 9 do begin
for y:=0 to 9 do begin
for z:=0 to 9 do begin
if (x+y=z) then writeln(x,y,z);
end;
end;
end;
end.
- 01.01.1970 00:00
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.