Ответы и объяснения

2014-02-05T15:12:20+04:00

const n=10;

var a:real; i:integer;

begin read(a);

if (a >=1) and (a <=1.5) then begin

for i:=2 to n do

if a < (1+1/i) then begin

write(i); break;

end;

end;

end.