Предмет: Информатика, автор: skelpesinfo

Задания на фотографиях!!!

Приложения:

Ответы

Автор ответа: nipine3640
1

var a, b, y: real;

begin

readln(a, b);

y := (x * x + a) / b;

writeln(y);

end.


skelpesinfo: Спасибо, но чутка не правильно.
Я сделал:

Program homework1;

var
a, b, x, y: real;

begin
writeln('Введите значение x');
read(x);
writeln('Введите значение a');
read(a);
writeln('Введите значение b');
read(b);
y:=(x*x+a)/b;
writeln('Ответ равен: ', y);

end.
Похожие вопросы