Потрібно скласти програму, яка би запитувала у користувача його ім’я (Name), число (DD) та місяць (MM) його народження, а потім виводила наступне повідомлення: Your password NAME_DDMM_name_L
Program RLN; var x:byte; begin writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:'); Readln(x); Case x of 0: writeln('Такого месяца не существует'); 1: writeln('Январь.'); 2: writeln('Февраль.'); 3: writeln('Март.'); 4: writeln('Апрель.'); 5: writeln('Май.'); 6: writeln('Июнь.'); 7: writeln('Июль.'); 8: writeln('Август.'); 9: writeln('Сентябрь.'); 10: writeln('Октябрь.'); 11: writeln('Ноябрь.'); 12: writeln('Декабрь.'); 13..1000: writeln('Такого месяца не существует.'); end; end.
Письмо - 100 г
Посылка - 5 кг
Телеграмма - 50 г
Бандероль - 500 г
Дядя Фёдор получил:
Писем - 8 шт.
Посылок - 3 шт.
Телеграмм - 7 шт.
Бандеролей - 1 шт.
Кот Матроскин получил:
Писем - 3 шт.
Посылок - 1 шт.
Телеграмм - 3 шт.
Бандеролей - 1 шт.
Пёс Шарик получил:
Писем - 0 шт.
Посылок - 3 шт.
Телеграмм - 0 шт.
Бандеролей - 4 шт.
Вся почта, доставленная Печкиным одного вида (кол-во):
Писем - 8+3+0=11 шт.
Посылок - 3+1+3=7 шт.
Телеграмм - 7+3+0=10 шт.
Бандеролей - 1+1+4=6 шт.
Вся почта, доставленная Печкиным одного вида (вес):
Писем - 100*11=1100 г
Посылок - 5*7=35 кг
Телеграмм - 50*10=500 г
Бандеролей - 500*6=3000 г
var x:byte;
begin
writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:');
Readln(x);
Case x of
0: writeln('Такого месяца не существует');
1: writeln('Январь.');
2: writeln('Февраль.');
3: writeln('Март.');
4: writeln('Апрель.');
5: writeln('Май.');
6: writeln('Июнь.');
7: writeln('Июль.');
8: writeln('Август.');
9: writeln('Сентябрь.');
10: writeln('Октябрь.');
11: writeln('Ноябрь.');
12: writeln('Декабрь.');
13..1000: writeln('Такого месяца не существует.');
end;
end.