12 lines
165 B
ObjectPascal
12 lines
165 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD> while. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2
|
|||
|
|
begin
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2');
|
|||
|
|
var i := 1;
|
|||
|
|
var p := 1;
|
|||
|
|
while i<32 do
|
|||
|
|
begin
|
|||
|
|
writeln(i:2,p:12);
|
|||
|
|
i += 1;
|
|||
|
|
p *= 2;
|
|||
|
|
end;
|
|||
|
|
end.
|