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

Question

Информатика

Лавря

8 ноября, 13:12

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

+3

Ответы (2)

Знаете ответ?

Божена · Answer 1

var a, b:integer;

Begin

randomize;

a:=random (99) ;

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

read (b) ;

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

else writeln (': - (') ;

end.

Екатеринка · Answer 2

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.