Question

Ax+b<=0 решите через Паскаль пожаааалуйста

Answer 1

Var a, b, x: integer;
Begin
write('Введите число a: ');
readln(a);

write('Введите число x: ');
readln(x);

write('Введите число b: ');
readln(b);

if (a×x+b<=0) then
writeln ('Сумма чиселел меньше или равна нулю')
else writeln('Сумма числел больше нуля');

End.