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.
<span><span><span>
<span>
</span></span></span></span><span><span><span>
<span>
Свойства файла
</span></span><span>
Имя файла </span></span></span>word<span><span>
</span>
тип </span>Текстовый документ<span><span>
</span>
приложение </span>Microsoft Office Word<span><span>
</span>размер </span><span>36 МБ</span><span><span><span>
</span><span> Дата создания
</span></span><span>20.02.2017
</span></span>
var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.
Программа не доработана,не будет запускаться,очень много ошибок