Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста с паскалем

Ответ оставил Гость

Begin
var
x, y, a : real;
x := 0.1;
a := 0.15;
while x <= 0.9 do begin
y := ((4*sqrt(1-a*sqr(x)))/(1+sqr(a)+sqr(x)))+sqrt(1-sqr(x));
writeln(x=, x, ; y=, y);
x += 0.2;
end;
end.

надеюсь, я ничего не забыл ^^