ДАЮ 99 БАЛЛОВ. СРОЧНО!!! нужно написать программу ** языке паскаль по вводу года...

Question

ДАЮ 99 БАЛЛОВ. СРОЧНО!!!
нужно написать программу на языке паскаль по вводу года рождения, нужно идти на выборы или нет. Чтоб если больше 18 то программ говорила что нужно, а если меньше то ненужно

Answer 1

Var a,b: Integer;
begin
writeln('Введите год рождения');
readln(a);
b:=2018-a;
if b>18 then writeln('Можно идти на выборы') else writeln('Нельзя идти на ввборы');
end.

Comments

спасибо

Answer 2

program qq;var a: integer;
begin
write (‘Введите ваш возраст: ’);
readln (a);
if a>=18 then 
writeln(‘Вы имеете право голосовать’)
else write(‘Вы не имеете право голосовать’);
end.

Comments

спасибо