Ответы
Ответ дал:
1
program abc;
var
a, b, x, h: real;
begin
read(a, b);
h := 0.5;
x := a;
while x <= b + h / 2 do
begin
writeln(x:20:9, x * x - sqr(x * x) / 2:20:9);
x := x + h;
end;
end.
MadelineByOne:
Огромное спасибо, программа работает.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад