помогите пожалуйста, сделать что нибудь в паскалеВ календаре племени Сиу-Мяу 4

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


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

Задать свой вопрос
1 ответ
Var a:char;
b:real;
begin
writeln( 'Введите месяц и день', 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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт