Дано уравнение: xt1-yt2-zt3=0 условие: x,y,z - вводит пользователь, причем x,y,z больше 0 (нуля); t1,t2,t3 должны быть больше 0 (нуля). программа на паскале решения данного уравнения. всю голову уже есть умные решения.

Решение в натуральных числах *** текст программы на pascalabc.net *** begin   var (x,y,z): =readinteger3('введите x,y,z: ');   var (a1,a2,a3): =readinteger3('введите максимальные значения t1,t2,t3: ');   var k: =0;   for var t1: =1 to a1 do       for var t2: =1 to a2 do           for var t3: =1 to a3 do               if x*t1-y*t2-z*t3=0 then k+=1;   if k=0 then writeln('решений нет')   else   begin       writeln('найдено решений: ',k);       if readinteger('выводить решения? (1-да): ')=1 then       for var t1: =1 to a1 do           for var t2: =1 to a2 do               for var t3: =1 to a3 do                   if x*t1-y*t2-z*t3=0 then                       writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0')   end;   writeln('работа программы завершена') end. *** пример работы с программой *** введите x,y,z: 3 5 7 введите максимальные значения t1,t2,t3: 10 10 10 найдено решений: 3 выводить решения? (1-да): 1 3x4-5x1-7x1=0 3x8-5x2-7x2=0 3x9-5x4-7x1=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 ставьте, что нужно

ответ:370

Объяснение: 400-50=350

350+20=370