Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.
1 байт=4 битам 4x32=128 байтов
1. Множество целых чисел от 1 до 3 (ну это совсем легко)
2. Множество трёх самых распространённых видов общественного транспорта (автобус, троллейбус, маршрутное такси)
3. Множество предметов спального белья (простыня, наволочка, пододеяльник)
Первым, очевидно, постановка задачи.
Проведение расчетов.
Далее построение математической модели.
Разработка алгоритма.
Программирование.
Отладка программы.
Анализ результатов.
1),3),5),7),9) если помогло заранее пожалуйста