Pascal! для заданной функции s=tg 1/x + 2cos x/2 вывести на экран значения функции в пределах от -1 до 2 и соответствующие им значения аргумента на отрезке x ∈ [ -1, b] c шагом h=0,3.

Const a=-1; b=2; h=0.3; var x,s: real; i,n: integer; begin x: =a-h; n: =round((b-a)/h)+1; for i: =1 to n do   begin   x: =x+h;   s: =sin(1/x)/cos(1/x)+2*cos(x/2);   writeln(x: 5: 1,'   ',s: 6: 3);   end; end.  результат:   -1.0   0.198   -0.7   -5.105   -0.4   2.707   -0.1   1.349   0.2   -1.391   0.5   -0.247   0.8   4.852   1.1   2.989   1.4   2.397   1.7   1.987   2.0   1.627

Наверное имелось ввиду произведение его цифр, тогда может получиться так: 1. решение без циклов //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var n,x,p: integer; //n1-кол-во четных, n2-нечетных begin   read(n);   p: =1;     //получаем остаток от деления (единицы) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем единицы   n: =n div 10; //получаем остаток от деления (десятки) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем десятки   n: =n div 10; //получаем остаток от деления (сотни) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем сотни   n: =n div 10; //получаем остаток от деления (тысячи) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем тысячи   n: =n div 10; ///получаем остаток от деления (сотни тысяч) и умножаем на него p   x: =n mod 10; p: =p*x; // теперь в p находится произведение единицы*сотни*тысячи*сотни тысяч   writeln('произведение цифр ',p); end. 2. решение с циклом //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var n,x,p: integer; begin   readln(n);   p: =1;   while n> 0 do  begin   x: =n mod 10; p: =p*x;   n: =n div 10;   end;   writeln('произведение цифр ',p); end.