Представь положительное число 10510 а) в 1-байтовом формате:

б) в 2-байтовом формате:

​

10 rem создание массива а для заполнения списком из 10 чисел 20 dim a (1,10): 30 rem начало цикла для заполнения массива 40 for i=1 to 10 50 rem формирование запроса на ввод i-го числа 60 print “введите”, i, “-ое число” 70 rem ввод i-го числа 80 input j 90 rem присвоение i-му элементу массива значения числа 100 a(i)=j 110 next i 120 rem цикл сортировки списка чисел по возрастанию 130 for i =1 to 9 140 for j=i+1 to 10 150 rem условие для списка 160 if a(i)> a(j) then b=a(i): a(i)=a(j): a(j)=b 170 next j, i 180 rem цикл вывода списка на экран 190 for i=1 to 10 200 print а(i) 210 next i работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. работает!

в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)

текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.