Решение, с помощью которого не придется перебирать 800 чисел подряд:
var
i, j : Integer;
begin
i := 1;
repeat
j := 0;
repeat
writeln(i, j, i);
j := j + 1;
until j = 9;
i := i + 1
until i = 9
end.
var x,y,z:Integer;
begin
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if 3*(1000+x*100+y*10+z)=x*1000+y*100+z*10+1 then Writeln(1,x,y,z);
Readln;
end.
в) главного меню
г) окном программы
Ответ 4 , так как дизъюнкция , то ищем f =1
это 2 строчка, чтобы была истина , все 3 переменные должны быть 1
нам подходит 4 вариант
ответ 4