НАДО ПЕРЕПИСАТЬ ЭТУ ПРОГРАММУ ВНЕШНИЙ ЦИКЛ С ПОСТУСЛОВИЕМ А ВНУТРЕННИЙ С ПРЕДУСЛОВИЕМ uses crt ;
var X , n:integer ;
Y, F:real;
begin
readln (n);
ClrScr;
x:=1;
for x:=1 to n do begin
Y:=1.0;
repeat
F:= sin(sqr(y))- ln(x*y);
writeln ('X=', x:4,' ' :1, 'Y=',Y:4:2,' ':1,'F=', F:4:2);
Y:=Y+0.5
Until Y>4.0;
end;
X:=X+1;
end.

anisa2004god    3   23.11.2020 12:58    3