Написать программу, которая определяет, имеете ли Вы право голосовать: если Вам 18 и более - да, если это не так - такого права у Вас нет.

Question

Информатика

Филиппыч

15 ноября, 05:55

Написать программу, которая определяет, имеете ли Вы право голосовать: если Вам 18 и более - да, если это не так - такого права у Вас нет.

+2

Ответы (1)

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

Евгена · Answer 1

Program golosovanie;

Uses crt;

var a: integer;

Begin clrscr;

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

readln (a) ;

if a>=18 then writeln ('Вы имеете право голосовать') ;

if (a0) then writeln ('У Вас нет права голосовать') ;

if a<=0 then writeln ('Возраст некорректен') ;

End.