Наверное так
uses crt;
var
a, b, h, x, fx: Real;
i, n: integer;
begin
ClrScr;
Write('Введите отрезок a,b и величину шага h =');
Read(a, b, h);
Writeln(' x ':2, ' ', ' fx ':5);
x := a;
for i := 1 to round(abs(b - a) / h) do
begin
fx := cos(x) / sin(x) + 1;
writeln(x:2:5, ' ', fx:5:6);
x := x + h;
end;
Readkey;
end.
Широко распространен в Европе,Азиии Северной Америке. Большинство видов клена представляют собой деревья 10-40м высотой, но среди них встречаются и кустарники 5-10 м высотой с рядом небольших веток, растущих от основания ствола. Цветки с пятью лепестками, собраны в кисть, щиток или зонтик.
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
Такие задачи лучше всего(проще и быстрее) решать через 16-ричную систему.
Гляди
123 = 7Bh = 0111 1011b = 001 111 011b = 173(8)
147 = 93h = 1001 0011b = 010 010 011b = 223(8)
Ну и так далее, всё просто! А для перевода 10->16 пользуйся стандартным алгоритмом, то есть последовательно дели на 16.
Например
123/16 = 7 (ост 11), значит 123 = 7Bh (Цифра B - это 11 в 10-тичной системе).
Нет две! Разделенные знаком собаки. Это имя пользователя и домен на котором расположен почтовый сервер. Домен может быть из нескольких слов, разделенных точками.