Напишите программу в которой пользователю предлагается дополнить до 100 некоторое число a (a - случайное число, меньшее 100) ответ пользователя проверяется и комментируете

Question

Информатика

Вероника

18 июня, 07:34

Напишите программу в которой пользователю предлагается дополнить до 100 некоторое число a (a - случайное число, меньшее 100) ответ пользователя проверяется и комментируете

+1

Ответы (1)

Знаете ответ на вопрос?

Никитич · Answer 1

Var a, b:integer;

begin

a:=random (99) + 1;

write ('Дополните до 100 число ', a,': ') ;

readln (b) ;

if b=100-a then writeln ('Верно!')

else writeln ('Вы ошиблись. 100-', a,'=',100-a) ;

end.

Пример:

Дополните до 100 число 75: 20

Вы ошиблись. 100-75=25