Ответ:
var a, b: real;
begin
a:=256;
b:=0;
while a <> 1 do
a:=a/2;
b:=b+a;
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var a, b: real;
begin
a:=256;
b:=0;
while a <> 1 do
begin
a:=a/2;
b:=b+a;
end;
end.