Ответы
Ответ дал:
0
Ответ:
program n;
var r, z :integer;
begin
r:=3;
z:=0;
while r<=24 do
begin
z:=z+r;
r:=r*2;
end;
writeln('z=',z);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад