Вычислить значения следующих функций F(x) на отрезке |а, Ь] с шагом h, представив результат в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции: F(x) = ctgx+1
решить задачу в паскале
program z3_73;
uses crt;
var
a,b,h,x,fx:Real;
Begin
ClrScr;
Write('Введите отрезок a,b = ');
Read(a,b);
Write('Введите величину шага h = ');
Read(h);
Writeln(' x ',' fx ');
x: = a;
While x< = b do
begin
fx: = cos(x)/sin(x)+1;
writeln(x:2:5,' ',fx:5:6);
x: = x+h;
end;
Readkey;
end.
While x< = b do-замените вот это на For