Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то Program ddd; var tg, f:real; x:integer; begin readln (x); tg := sin(x)/cos(x); if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1; if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x)); writeln (f); end.
Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).
вариант решения, если элементы вводятся var n, i, x, s : integer; t: string; begin writeln('количество чисел'); readln(n); s := 0; for i := 1 to n do begin writeln(i,' число:'); readln(x); if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
вариант решения, если элементы заданы массивом const n=50 var i, x, s : integer; t: string; m1: array [1..n] of integer; begin s := 0; for i := 1 to n do begin x := m1[i]; if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
Частное Х = 5
Остаток У = 5