Какие два условных оператора имеются в языке Pascal?
1 ответ:
Читайте также
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>
var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>
x=1.36
P=-0.0783922330060185
var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>
x=1.36
P=-0.0783922330060185