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

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

var

a,b: integer;

begin

randomize;

</<font color="#222222"> 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.

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

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

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

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

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