Найти все трех значные числа где сумма первого и второго равна третьей

Question

Информатика

Танюра

13 марта, 10:50

Найти все трех значные числа где сумма первого и второго равна третьей

+5

Ответы (2)

Знаете ответ на вопрос?

Ларуня · Answer 1

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.

Валерьяныч · Answer 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