С помощью оператора Readln,writlen,Random составить программу которая будет сравнивать...

Question

С помощью оператора Readln,writlen,Random составить программу которая будет сравнивать число вводимое с клавиатуры со случайным числом в диапазоне от 0 до 100 результат выводится на экран.

Answer 1

program first;

var a,b: integer;

begin

randomize;

{Получаем значение с клавиатуры}

readln(a);

{Выбираем случайное число}

b:= random( 100);

writeln(b);

{Сравниваем данные значения}

if a = b then writeln('Данные числа равны')

else if a > b then writeln('Первое число больше второго')

else if b > a then writeln('Первое число меньше второго');

end.