Решить в целых числах уравнение 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.

1. плывут два ребенка

2. один ребенок возвращается

3. плывет взрослый на др. берег

4. возвращается второй ребенок

5. плывут два ребенка на др. берег

6. один ребенок возвращается

7. плывет взрослый на др. берег

8. возвращается второй ребенок

9. плывут два ребенка на др. берег

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.