var a, b : integer; begin readln (a); readln (b); if (a = 0) and (b < 0) then writeln ('x - любое число'); if (a = 0) and (b >= 0) then writeln ('нет решений'); if a <> 0 then writeln ('x < ', - b / a) end.
a, b могут быть дробными числами. Язык программирования: Паскаль
var a, b : real; begin readln (a); readln (b); if a <> 0 then writeln ('x < ', - b / a); if (a = 0) and (b < 0) then writeln ('x - любое число'); if (a = 0) and (b >= 0) then writeln ('нет решений') end.
ax + b < 0
ax < -b
x < - b / a
Целые числа.
Язык программирования: Паскаль
var
a, b : integer;
begin
readln (a);
readln (b);
if (a = 0) and (b < 0) then
writeln ('x - любое число');
if (a = 0) and (b >= 0) then
writeln ('нет решений');
if a <> 0 then
writeln ('x < ', - b / a)
end.
a=int(input(введіть число))
b=int(input(введіть число))
if x(.)
Объяснение:
ax + b < 0
ax < -b
x < - b / a
a, b могут быть дробными числами.
Язык программирования: Паскаль
var
a, b : real;
begin
readln (a);
readln (b);
if a <> 0 then
writeln ('x < ', - b / a);
if (a = 0) and (b < 0) then
writeln ('x - любое число');
if (a = 0) and (b >= 0) then
writeln ('нет решений')
end.
var
a,b,x:real;
begin
write ('A = ');readln(a);
write ('B = ');readln(b);
if (a=0) and (b>=0) then writeln ('Нет решений') else
if (a=0) and (b<0) then writeln ('X - любое число') else
if a>0 then writeln ('X < ',-b/a:0:4) else
if a<0 then write ('X > ',-b/a:0:4);
readln;
end.
Відповідь:
c++
#include <iostream>
int main()
{
int a, b;
std::cout << "input a: "; std:: cin>>a;
std::cout << "input b: "; std:: cin>>b;
std::cout << "x = " << -b/a << std::endl;
system("pause");
return 0;
}
Пояснення: