Function y(x:integer):real;
begin
case x of
1,3,5,7: y:=sqr(x+cos(x));
2,4,6,8: y:=sqrt(sin(x)/5);
else y:=x+ln(x+2);
end;
end;
var a,b,x,i:integer;
begin
writeln('a, b:');
readln(a,b);
for i:=a to b do
writeln(i:3,' ',y(i):6:4);
end.
Пример:
a, b:
0 10
0 0.6931
1 2.3725
2 0.4264
3 4.0401
4 NaN
5 27.9171
6 NaN
7 60.1230
8 0.4448
9 11.3979
10 12.4849
PS. При x=4 и x=6 по условию получается вычисление корня из отрицательного числа, поэтому результат - NaN (не число).