3. Вычислить значения функции у= sin(n*x)-cos(n/x) при n=1,2, … ,50 и изменении x в интервале [1; 3] c шагом х=0,1. Отпечатать только отрицательные значения функции y.
N эт понятно, а вот как остальное чет вообще не понял.
begin
for N:= 1 to 50 do
writeln(N)
end;

Можешь написать полностью программу чтоб она работала. Просто я не понял вообще откуда ты взял результаты если даже end без ;

Это полная работающая программа. А если Вы в силу своего незнания языка Паскаль не разбираетесь, в каких случаях точки с запятой можно не ставить - это Ваша проблема.

var  n:integer;  x,y:real;begin  for n:=1 to 50 do begin    Writeln('n=',n);    x:=1;    while x<=3.001 do begin      y:=sin(n*x)-cos(n/x);      if y<0 then Writeln('x=',x:3:1,'   y=',y:8:5);      x:=x+0.1      end    endend.Результаты (частично)n=1x=2.1   y=-0.02554x=2.2   y=-0.08996x=2.3   y=-0.16126x=2.4   y=-0.23898x=2.5   y=-0.32259x=2.6   y=-0.41144x=2.7   y=-0.50481x=2.8   y=-0.60191x=2.9   y=-0.70188x=3.0   y=-0.80384n=2x=1.5   y=-0.09412x=1.6   y=-0.37370x=1.7   y=-0.63973x=1.8   y=-0.88619x=1.9   y=-1.10714x=2.0   y=-1.29710x=2.1   y=-1.45132x=2.2   y=-1.56607x=2.3   y=-1.63885x=2.4   y=-1.66858x=2.5   y=-1.65563x=2.6   y=-1.60190x=2.7   y=-1.51073x=2.8   y=-1.38683x=2.9   y=-1.23607x=3.0   y=-1.06530...n=49x=1.0   y=-1.25435x=1.1   y=-1.31878x=1.3   y=-0.23684x=1.5   y=-1.26149x=1.6   y=-0.56383x=1.9   y=-1.70385x=2.0   y=-1.37979x=2.4   y=-0.98177x=2.5   y=-0.70927x=2.6   y=-0.01366x=2.7   y=-0.41812x=2.8   y=-1.07678x=2.9   y=-0.29265n=50x=1.0   y=-1.22734x=1.1   y=-1.09814x=1.5   y=-0.04807x=1.6   y=-1.98015x=2.0   y=-1.49757x=2.1   y=-1.21559x=2.5   y=-1.02412x=2.6   y=-1.85832x=2.7   y=-0.85734x=3.0   y=-0.14029