Задача. Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.
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.
Домашнее задание.
Решить задачи: проверить число на четность,
подсчитать сумму цифр в числе,
сравнить цифры в двузначном числе.
Число задается генератором случайных чисел.
