12 lines
165 B
ObjectPascal
12 lines
165 B
ObjectPascal
// Öèêë while. Ñòåïåíè 2
|
|
begin
|
|
writeln('Ñòåïåíè 2');
|
|
var i := 1;
|
|
var p := 1;
|
|
while i<32 do
|
|
begin
|
|
writeln(i:2,p:12);
|
|
i += 1;
|
|
p *= 2;
|
|
end;
|
|
end. |