Ответы
Ответ дал:
0
Program Jum_Ihisel;
Var s: real; n:integer;
Begin
s:=0;
n:=8;
while s<21 do
begin
s:=s+5/n;
n:=n*2;
end;
writeln("Сумма= ", s);
End.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад