Прошу в паскале абц if7 полность как решать все свои и мне ещё надо if8

185

188

Посмотреть ответы 2

Ответы на вопрос:

zhansaya12

Информатика

4,8(20 оценок)

тут найдешь решение

kseniya20072

Информатика

4,8(28 оценок)

Var a,b: integer; x: real; begin readln (a,b); x: =abs(b/a); writeln (x: 0: 2); end. абс это модуль, но я могу и ошибаться, тогда var a,b: integer; x: real; begin readln (a,b); if a< 0 then a: =a*(-1); if b< 0 then b: =b*(-1); x: =abs(b/a); writeln (x: 0: 2); end.