Ответы
Ответ дал:
0
Ответ:
Объяснение:
var a,b: real;
n,i: integer;
begin
readln(a);
b:=0.5;
while a>1 do
begin
a:=a-b;
end;
Вас заинтересует
1 год назад
7 лет назад
8 лет назад