Program HelloWorld output var real integer begin writeln vvod chisla r

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
Program HelloWorld(output);
var s: real;
i: integer;
begin
writeln('vvod chisla');
read(s); {45,333}
i := 0;
while i < 10 do begin // 0 < 10, 1 < 10, 2 < 10, 3 < 10
if frac(s) > 0 then begin // 0.333 > 0,33 > 0, 0.3 > 0, break
s := s * 10; // 0.333 * 10, 0.33 * 10, 0.3 * 10,
i := i + 1; //0 + 1, 1 + 1, 2 + 1,
end else break;
end;
write(i);
end.