pascalabcnet/TestSuite/CompilationSamples/Shl.pas

9 lines
187 B
ObjectPascal

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