Паскаль?
var a, y, x:real;
m:integer;
begin
readln(a);
y:=0;
for m:= 0 to 30 do begin
x:= m / 10;
y:= a / ( (a * a) + (x * x) + 1 );
writeln(y);
end;
end.
Объяснение:
Если я все правильно понял, то a должен вводить пользователь, если так то вышеприведенная программа верна (если нет уточнить откуда должная взяться a)
Паскаль?
var a, y, x:real;
m:integer;
begin
readln(a);
y:=0;
for m:= 0 to 30 do begin
x:= m / 10;
y:= a / ( (a * a) + (x * x) + 1 );
writeln(y);
end;
end.
Объяснение:
Если я все правильно понял, то a должен вводить пользователь, если так то вышеприведенная программа верна (если нет уточнить откуда должная взяться a)