<span> Филипп Рейсу 26 октября 1861 года в Германии</span>
10 Кбайт =10 * 1024= 10240 байт
10240 байт = 10240 * 8 = 81920 бит
В общем, не серчай на качество фотографий
Надеюсь, что общий принцип ты понял
1. Линейный - действия в прямоугольнике
2. С Ветвлением - действия в прямоугольнике, вопрос(условие) в ромбе
3. Цикл - действия в прямоугольнике, условие "Хватит на покупку хлеба?" в ромбе, отрицательная ветвь НЕТ идет вниз к действию "Выпросить у матери или продать почку ради накопления средств на покупку хлеба" в прямоугольнике, от него стрелка идет к действию "Выполнить подсчёт", т.к. после того как ты выпросил деньги у мамки ты подсчитываешь их и идешь снова в условие, если денег хватает (ветвь ДА), то продолжаешь те же самые действия, то есть выходишь на улицу, идешь в магазин и т.д.
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
Кожа-горячо(холодно), язык сладко(горько),нос-ароматный