Question

Решить на программе Pascal ABC............ СПАСИБО!!!..........Фото задач прилагается!!​

Answer 1

Ответ:

Пожалуйста поставь как лучший ответ

Я всё проверил в PascalABC

Объяснение:

Program anime;

var x, y: real;

begin

x := - 1;

while x < 1.1  do begin

y := 5 * x * x + x;

x := x + 0.2;

writeln (y);

end;

end.

Program animex;

var x, y: real;

begin

x := 0;

while x < 9.1  do begin

y := 3 / (3 + x);

x := x + 0.5;

writeln (y);

end;

end.

Program animexx;

var x, y: real;

begin

x := 2;

while x < 15.1  do begin

y := (x * x - 3) / (2 * x - x);

x := x + 1;

writeln (y);

end;

end.

Answer 2

Спасибо