Проведите вычислительный эксперимент на линейной имитационной модели для различных вариантов исходного расселения организмов: а) возможно ли такое расселение, при котором все организмы в конце концов вымрут? б) не ведет ли любое расселение в конечном итоге к одной и той же последовательности поколений? в) что меняется с изменением размера жизненного

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.

var x,y: real;

begin

  readln(x);

  if x> 8 then y: =x/4 else y: =x*5;

  writeln(y);

end.