Ответы
Ответ дал:
0
var a,b,h,r:real; i:integer;
begin
write('a, b, h: ');
readln(a,b,h);
for i:=0 to round((b-a)/h) do
begin
r:=a+i*h;
writeln(r:4:1,pi*r*r:8:3);
end;
end.
Пример:
a, b, h: 2 3 0.2
2.0 12.566
2.2 15.205
2.4 18.096
2.6 21.237
2.8 24.630
3.0 28.274
begin
write('a, b, h: ');
readln(a,b,h);
for i:=0 to round((b-a)/h) do
begin
r:=a+i*h;
writeln(r:4:1,pi*r*r:8:3);
end;
end.
Пример:
a, b, h: 2 3 0.2
2.0 12.566
2.2 15.205
2.4 18.096
2.6 21.237
2.8 24.630
3.0 28.274
Вас заинтересует
5 лет назад
8 лет назад
8 лет назад
9 лет назад