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

okunevap302 okunevap302    1   21.06.2019 23:40    0

Ответы
Лена17617 Лена17617  02.10.2020 07:48
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
ПОКАЗАТЬ ОТВЕТЫ
jessikafox jessikafox  02.10.2020 07:48
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика