1. Написать программу вычисления корня линейного уравнения kx + b = 0/

2. Даны два числа. Определите, равны или не равны эти числа.

Question

Информатика

Антонинка

1 декабря, 02:28

1. Написать программу вычисления корня линейного уравнения kx + b = 0/

2. Даны два числа. Определите, равны или не равны эти числа.

+2

Ответы (1)

Знаете ответ на вопрос?

Корнелий · Answer 1

Var k, b:real;

Begin

WriteLn ('kx + b = 0') ;

Write ('k = ') ;

ReadLn (k) ;

Write ('b = ') ;

ReadLn (b) ;

WriteLn ('x = ',-b/k) ;

End.

Var a, b:real;

Begin

WriteLn ('Введите два числа') ;

ReadLn (a, b) ;

if a=b then WriteLn ('Числа равны')

else WriteLn ('Числа неравны') ;

End.

1. Написать программу вычисления корня линейного уравнения kx + b = 0/2. Даны два числа. Определите, равны или не равны эти числа.

1. Написать программу вычисления корня линейного уравнения kx + b = 0/

2. Даны два числа. Определите, равны или не равны эти числа.