Предмет: Информатика,
автор: wertigo93
Информатика, школьный курс, составить программу...
Приложения:

Ответы
Автор ответа:
0
var
a : integer;
begin
writeln ('Введите ваш возраст');
readln (a);
if a >= 18 then writeln ('Вы принимаете участие в выборах ')
else writeln ('Вы не достигли возраста для голосования ');
end.
wertigo93:
Извиняюсь, не могли бы вы в QBASIC сделать?
c.d:byte;
begin
writeln ('Введите ваш возраст');
readln (c);
D:=18-c
if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end
Похожие вопросы
Предмет: Математика,
автор: verash2003
Предмет: Русский язык,
автор: anna9050novikov
Предмет: Английский язык,
автор: kristin5
Предмет: Алгебра,
автор: selivanova234
Предмет: География,
автор: Kirillka1703