• помогите пожалуйста, сделать что нибудь в паскале


    В календаре племени Сиу-Мяу 4 месяца (тяп, ляп, мяк, бяк) по 12 дней. Составьте программу, которая запрашивает название месяца (один из символов: 'т' — тяп, 'л' — ляп, 'м' — мяк, 'б' — бяк) и число (от 1 до 12) и выдаёт полную дату.
    Протокол:
    Введите месяц и день: л 8
    Сегодня восьмое ляпа

Ответы 1

  • var a:char;b:real;beginwriteln( 'Введите месяц и день', a, b);readln (a,b);if a='т' then Writeln( 'тяп ', b);if a='л' then Writeln( 'ляк ',b);if a='м' then Writeln( 'мяк ',b);if a='б' then Writeln( 'бяк ',b);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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