Saonav
7 год назад
Помогите с информатикой, пожалуйста. Напишите процедуру, которая выводит на экран решение линейного алгебраического уравнения. Параметры и являются параметрами процедуры.
ОТВЕТЫ
Руфиниан
Jul 16, 2019
Procedure SolveLinear;
var
k, x, b, y: real;
begin
write(k=);
readln(k);
write(x=);
readln(x);
write(b=);
readln(b);
y := k * x + b;
writeln(y=kx+b=, y);
end;
var
k, x, b, y: real;
begin
write(k=);
readln(k);
write(x=);
readln(x);
write(b=);
readln(b);
y := k * x + b;
writeln(y=kx+b=, y);
end;
104
