Определи истинность утверждений для дерева Ы, заполни таблицу.
Все следующие вершины после зелёной квадратной бусины четвёртого уровня — синие квадратные бусины.
Все следующие вершины после красной квадратной бусины четвёртого уровня — треугольные бусины.
Все квадратные листья — синие.
Все треугольные листья — жёлтые.
Все треугольные бусины на третьем уровне — жёлтые.
Все круглые бусины пятого уровня — красные.
Предыдущая бусина перед каждой круглой жёлтой — треугольная.
Предыдущая бусина перед каждой круглой красной — круглая.

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.

разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:

1) 6224

2) 64472

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.