Регистрация
viceofficial
02.05.2020 16:44
Информатика
Есть ответ 👍

Ввести число a решите неравенство ax< -5 на паскале с if the else 10 класс

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

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

maksimtihonov34
maksimtihonov34
4,8(50 оценок)

var a: integer;

begin

var infinity: =#8734;

var elementof: =#8712;

writeln('ax < -5');

write('введите a: ');

readln(a);

if a = 0 then

begin

writeln('нет решений');

exit;

end;

if a > 0 then

writeln('x '+elementof+' (-'+infinity+'; ',(a/-5),')')

else

writeln('x '+elementof+' (',(a/-5),'; +'+infinity+')');

end.

fatimatagiyeva
fatimatagiyeva
4,4(51 оценок)
Uses crt; var a,b: real; num: integer; begin writeln('введите два числа'); readln(a,b); writeln('выберите операцию: 1.сложение, 2.умножение'); readln(num); clrscr; case num of 1: writeln(a,'+',b,'=',a+b); 2: writeln(a,'*',b,'=',a*b); end; end.

Популярно: Информатика