blob: 0fe270016d447cbea723ab2944d834932b483193 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{ %VERSION=1.1 }
{ Old file: tbs0353.pp }
{ }
Var
I : Int64;
j : longint;
K : Int64;
err : boolean;
begin
I:=2;
Writeln(i);
K:=1 shl 62;
For j:=1 to 61 do
begin
I:=I*2;
If I/k*100>100 then
begin
Writeln('Error');
err:=true;
end
else
Writeln(j:2,': ',i:20,' ',i div 1024:20,' ',(i/k*100):4:1);
end;
if err then
halt(1);
end.
|
