Напишите программу на паскале для решения следующей задачи . Даны два числа m и n . Если числа равны, то замените каждое из них суммой m+n, иначе -нулем.

1)дюймовочка

2)змей горыныч (3 головы)

3)снегурочка(сделана из снега)

4)буратино (необычно длинный нос)

  ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.

з -это заяц,их должно быть 5:

                                                                                                        три зайца по углам и два у стенок по одному.

                  з                                        з                                    это для малышей,ее каждый ребенок знает.

                                                                з

                  з                        з

2^3 = 8 цветов (скорее всего оттенки серого)

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.