)решить в паскале: (1-tg x)^ctg x+cos(x-y)

По умолчанию паскаль считает тригонометрические функции для радиан, но можно  перевести  в  градусы,  если  нужно (пишите в комментариях) var x,y: real; begin writeln ('введите x,y в радианах'); read (x,y); writeln (power((1-tan(/tan( + cos(x-y)); end.

'microsoft qbasic 1.0 dim a(1 to 40) as integer cls k = 0 randomize timer for i = 1 to 40   a(i) = int(10 * rnd) - 5   print a(i);   if a(i) = 0 then k = k + 1 next i print print "количество нулей="; k тестовое решение -2 -3 -1 -1  1  1  2  1 -5 -4 -3  4 -1 -3  1 -1  2 -4  2  3  2 -5 -2  0 -1  0   0 -3  2 -4 -5  1  2 -3 -5 -1  2  0  2  4 количество нулей= 4

Var s: string; k, i,  n: integer; begin readln(s); k: =0;   n: =length(s); i: =1; while (i< =n) do begin     if s[i]='.' then     begin         k: =k+1;         delete(s,i,1);         i: =i-1;         n: =n-1;       end;       i: =i+1; end;   writeln('количество точек в строке=',k);     writeln('новая строка:   ',s); end.