Напечатать таблицу перевода 1,2,, 20 б в биты ( с решением

program zz1;

var c, s:integer; // задаем переменные целого типа

begin

c:=1; // задаем изначальное значение для переменной цикла

while c lt;= 20 do // организуем цикл, пока переменная цикла не достигнет заключительного значения

begin

s:=8 * c ; // получаем количество битов, используя формулу для перевода

writeln( для , c, байт, количество битов = , s);  // выводим ответ в столбец

c:=c + 1; // увеличиваем переменную цикла на шаг, который равен единице

end;

end.