Question

написать программу на паскале, запрашивающую возраст пользователя, если ему не менее 18 лет сообщите ему что он имеет право голосовать, в противном случае вычислите через сколько лет ему предоставят это право.

Answer 1

var
  c.d:byte;
begin
  writeln ('Введите ваш возраст');
  readln (c);
D:=18-c
 if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
 if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end.

Answer 2

var
c.d:byte;
begin
writeln ('Введите ваш возраст');
readln (c);
D:=18-c;
if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end.

Answer 3

только вместо :byte; надо :integer;

Answer 4

ну разницы нет, только на 2 байта больше интегер весит