не правильно работает программа Program Tab;

Uses Crt;

Const y=1;

Var X, A, F: Real;

Begin

ClrScr;

X:=0.0;

Repeat

Begin

A:=0;

While A>4 do

F:=X*X*cos(sqrt(A)*y)+ln(y);

Writeln('A=', A:5:2, ' ': 3,'y=',y,' ':3,'X=',X: 5: 2,' ':3, 'F=', F: 5: 3);

A:=A+1 {изменение переменной A}

End;

X:=X+1.0;

Until X<=3.0;

Readln;

End.

pandokokos22jopar    1   21.12.2020 12:06    1