Решить в целых числах уравнение ax + b = 0. входные данные вводятся 2 целых числа: a и b. выходные данные необходимо вывести все решения, если их число конечно, “no” (без кавычек), если решений нет, и “inf” (без кавычек), если решений бесконечно много. в паскале, ! )

Var   a,b: integer; begin   write('введите a,b: '); read(a,b);   if a< > 0 then       if (b mod a)=0 then writeln(-b div a) else writeln('no')   else       if b=0 then writeln('inf') else writeln('no') end.

Pascal: var x,y: integer; begin readln (x,y); if (x> 0) and (y> 0) then writeln ('точка лежит в первой четверти'); if (x< 0) and (y> 0) then  writeln ('точка лежит во второй четверти'); if (x< 0) and (y< 0) then writeln ('точка лежит в третьей четверти'); if (x> 0) and (y< 0) then writeln ('точка лежит  в четвертой четверти'); if (x=0) and (y=0) then writeln ('точка лежит на пересечении осей') else if x=0 then writeln ('точка лежит на оси ординат') else if y=0 then  writeln ('точка лежит на оси абсцисс'); readln; end.

Предлагаю тебе такое решение. так как сам новичок, чуть-чуть попыхтел : ) program dlya_0101000; var a,b,c,d,p,l: integer; m: boolean; label 1,2; begin writeln ('введите 4 произвольных числа, разделяя их пробелом'); read (a,b,c,d); p: =b*d; if -d) mod 2)= 0) then writeln('сумма ',(b+d), ' чётная. два числа и их произведение: ',b*d) else goto 1; m: =(a+c)> 150; if m=true then writeln ('сумма чисел: ',a+c,'. четыре числа: ',a,' ',b,' ',c,' ',d); if -d) mod 2)< > 0) and (m=true) then writeln ('произведение второго и чётвёртого: ',(b*d), ' .сумма первого и третьего: ',(a+c)); goto 2; 1: writeln ('четыре числа: ',a,' ',b,' ',c,' ',d); 2: end.