Напишите программу, которая запрашивает 5 натуральных чисел, и определяет, сколько из них нечётных. Числа подаются одной строкой через пробел.

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

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

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

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

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

 

                                                       

                                                                з

 

                  з                        з