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

PIKACHYYYI

3 часа назад

Ответы и объяснения

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

0.0

0 оценок

0 оценок

спасибо

Лучший Ответ!

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

5.0

спасибо