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

Ответы 6

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

      chico2fzu
    • 6 лет назад
    • 0
  • и да if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет'); это одна строка
    • Автор:

      claudia
    • 6 лет назад
    • 0
  • спасибо
    • Автор:

      casey24
    • 6 лет назад
    • 0
  • только вместо :byte; надо :integer;
    • Автор:

      amigakzby
    • 6 лет назад
    • 0
  • ну разницы нет, только на 2 байта больше интегер весит
    • Автор:

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

      sweeney
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years