Предмет: Информатика, автор: wertigo93

Информатика, школьный курс, составить программу... ​

Приложения:

Ответы

Автор ответа: 77MISHKA77
0

var

 a : integer;

begin

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

readln (a);

if a >= 18 then writeln ('Вы принимаете участие в выборах ')

else writeln ('Вы не достигли возраста для голосования ');

end.


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