7. Var
y:real;
i:integer:
………………………
y:=1;
i:=5;
while i> 2 do i:=i-1;
y:=y+i*i;
8. Var
s:real;
i:integer:
………………………
y:=1;
i:=2;
repeat
i:=2*i;
y:=y+i
until i>5;
9. Var
y:real;
i:integer:
………………………
y:=1;
i:=1;
while i>1 do
Begin
y:=y+1/i;
i:=i-1;
end;
10. Var
y:real;
i:integer:
………………………
y:=1;
i:=5;
repeat
i:=2*i;
y:=y+i
until i>5

КоляКотик    2   12.01.2021 22:41    1