10 класс "Одномерные массивы" (задача и решение)

Задача. Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.

var

    a,b: integer;

begin

    randomize;

    a:= random(10);

     while a <> b do begin

        write('Введи число: ');

        readln(b);

        if b > a then

            writeln('Много')

        else

            if b < a then

                writeln('Мало')

            else

                writeln('Угадал');

    end;

 end.

Домашнее задание.

Решить задачи:  проверить число на четность,

подсчитать сумму цифр в числе,

сравнить цифры в двузначном числе.

 Число задается генератором случайных чисел.