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

Question

Информатика

Горгоний

14 сентября, 10:33

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

+5

Ответы (2)

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

Тома · Answer 1

var

a, b:integer;

begin

randomize;

a : = random (100) ;

write ('100 = ', a, ' + ') ;

readln (b) ;

if a + b = 100 then

writeln ('Правильно')

else

writeln ('Неправильно, нужно было ввести ', 100 - a) ;

end.

Келестина · Answer 2

var a, b:integer;

Begin

randomize;

a:=random (99) ;

writeln ('Дополните ', a) ;

read (b) ;

if (a+b=100) then writeln (':-) ')

else writeln (': - (') ;

end.