Var
x, y, a, b, h : real;
begin
write(Введите a: ); readln(a);
write(Введите b: ); readln(b);
write(Введите h: ); readln(h);
x := a;
while x <= b do
begin
writeln(x, - , sin(x) + tan(x));
x := x + h;
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.