Регистрация
diana17171
21.11.2020 01:59
Информатика
Есть ответ 👍

не правильно работает программа 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.

233
433
Посмотреть ответы 1

Ответы на вопрос:

DashaL04
DashaL04
4,6(90 оценок)

2 утверждение

Объяснение:

Популярно: Информатика