Сделать в паскале:
Найти Р:= 1/2*1/4*1/6*…*1/20

Злата5015 Злата5015    1   17.12.2020 16:56    1

Ответы
ученик11211 ученик11211  16.01.2021 16:57

Program h;

var i:integer;

p:real;

begin

i:=0;

while i<=20 do

begin

i:=i+2;

p:=p+1/i;

end;

writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика