Дано уравнение:

xt1-yt2-zt3=0

Условие:

x, y, z - вводит пользователь, причем x, y, z больше 0 (нуля) ;

t1, t2, t3 должны быть больше 0 (нуля).

Программа на Паскале решения данного уравнения.

Всю голову уже сломали ... Есть умные решения.

Если числа натуральные, что решение такое:

var

x, y, z, t1, t2, t3:integer;

begin

readln (x, y, z) ;

for t1:=1 to 9999 do

for t2:=1 to 9999 do

for t3:=1 to 9999 do

if x*t1 - y*t2 - z*t3 = 0 then

writeln ('t1=', t1,'; t2=', t2,'; t3=', t3)

end.

Не знала в каком диапазоне должны быть корни, так что вместо 9999 ставьте, что нужно