1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a,b,h:real;
beginwrite('vvedite otrezok cherz proboel ');readln(a,b);
write('vv chag ');readln(h);
writeln('| x',' | | ','F(x) |');
writeln('|------|-|------|');
while a<<span>=b do
begin
writeln('|',a:0:3,' | | ',sqrt(a)*sqr(cos(x)):0:3,'|');
writeln('|------|-|------|');
a:=a+h;
end;
readln;
end.