Написать программу на паскале, запрашивающую возраст пользователя, если ему не менее 18 лет сообщите ему что он имеет право голосовать, в противном случае вычислите через сколько лет ему предоставят это право.

Question

Информатика

Германик

11 марта, 09:11

Написать программу на паскале, запрашивающую возраст пользователя, если ему не менее 18 лет сообщите ему что он имеет право голосовать, в противном случае вычислите через сколько лет ему предоставят это право.

+4

Ответы (1)

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

Кононыч · Answer 1

Var

c. d:byte;

begin

writeln ('Введите ваш возраст') ;

readln (c) ;

D:=18-c

if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать') ;

if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через', d,'лет') ;

readln;

end.