ирина Альбертовна
?>

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

Информатика

Ответы

juliapierrat

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сделать в паскале: Найти Р:= 1/2*1/4*1/6*…*1/20
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

delo1005
medvik
Goldaram84
kulikovtsud
emartynova25
skononova01
nikolotovas
lebedev815
keykov35
luksorsps20096124
Avshirokova51
Ruslan Zarekovkin
Alisa1639
Paradismebel
lionmost6979