Дан массив из 30 элементов. заполнить массив начиная с элемента a до элемента b двойками, а остальные элементы нулями и вывести весь массив на экран. известно, что 1< =a формат ввода вводятся 2 целых числа 1< =a формат вывода массив из 30 элементов пример ввод 2 10 вывод 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! 1. решение без проверки вводимых данных begin   var a,b: integer;   read(a,b);   var p: =arrfill(30,0);   for var i: =a-1 to b-1 do p[i]: =2;   p.println end. пример 2 10 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2. решение с контролем ввода begin   var a: =readinteger('введите a от 1 до 30: ');   if a< 1 then begin writeln('неверно'); exit end;   var b: =readinteger('введите b от '+a.tostring+' до 30: ');   if (b< a) or (b> 30) then begin writeln('неверно'); exit end;   var p: =arrfill(30,0);   for var i: =a-1 to b-1 do p[i]: =2;   p.println end. пример введите a от 1 до 30: 2 введите b от 2 до 30: 10 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Так как в алфавите 64 символа, то информационный вес одного символа равен 6 бит, тогда объем информации равен 3072*6=18432 бита = 2304 байта