pascalabcnet/InstallerSamples/!Tutorial/01_First/Shl.pas

9 lines
187 B
ObjectPascal
Raw Normal View History

// Демонстрация операции shl
2015-05-14 22:35:07 +03:00
begin
writeln('Степени двойки');
2015-05-14 22:35:07 +03:00
writeln(' n 2^n');
for var i:=0 to 30 do
writeln(i:2,(1 shl i):12);
end.