Кавалерия — конница, смелый — храбрый, идти — шагать
В общем, не серчай на качество фотографий
Надеюсь, что общий принцип ты понял
1. Линейный - действия в прямоугольнике
2. С Ветвлением - действия в прямоугольнике, вопрос(условие) в ромбе
3. Цикл - действия в прямоугольнике, условие "Хватит на покупку хлеба?" в ромбе, отрицательная ветвь НЕТ идет вниз к действию "Выпросить у матери или продать почку ради накопления средств на покупку хлеба" в прямоугольнике, от него стрелка идет к действию "Выполнить подсчёт", т.к. после того как ты выпросил деньги у мамки ты подсчитываешь их и идешь снова в условие, если денег хватает (ветвь ДА), то продолжаешь те же самые действия, то есть выходишь на улицу, идешь в магазин и т.д.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if a[i,j].IsEven then k+=1;
Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
90 57 58 49 91 -83 61
-57 70 52 90 53 -22 89
-90 -23 39 -88 28 16 -34
-65 -19 -92 -49 77 11 79
-37 -85 -5 6 -41 -75 -90
1 62 24 92 -37 88 21
-65 -47 48 -39 -46 6 38
----------------------------
Количество четных элементов ниже побочной диагонали: 11
Uses crt;
var a, b, c, max: integer;
begin
readln(a,b,c);
writeln(a, ' ', b, ' ', c);
max := a;
if max < b then max := b;
if max < c then max := c;
writeln('max= ',max);
end.
1 символ кодируется 7 битами(2^7=128).
Теперь находим сколько бит всего
2000*7=14000 бит или 1750 байт.