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