Ответы и решения

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

0 голосов
61 просмотров

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


Информатика Начинающий (156 баллов) | 61 просмотров
Дан 1 ответ
0 голосов

Program golosovanie;
Uses crt;

var  a: integer;

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

if a>=18 then writeln('Вы имеете право голосовать');
if (a<18) and (a>0) then writeln('У Вас нет права голосовать');
if a<=0 then writeln('Возраст некорректен');<br>End.

Отличник (9.6k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей