Опубликовано 03.01.2018 по предмету Информатика от Гость

ПАСКАЛЬ
9.1. Запросить у пользователя день, месяц и год. Вывести на экран: если день от 1 до 5, то вывести «начало», если от 6 до 14, то вывести «первая половина», если 15, то вывести «середина», если от 16 до 25, то вывести «вторая половина», если от 26 до 31, то вывести «конец». В той же строке вывести название месяца в родительном падеже. Проверить и на другой строке вывести «високосный» или «невисокосный» год.
9.2. Запросить у пользователя целое число, последнюю цифру дописать впереди числа, вывести результат на экран.

Ответ оставил Гость

Uses crt;
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln(начало);
6..14: writeln(первая половина);
15: writeln(середина);
16..25: writeln(вторая половина);
26..31: writeln(конец);
end;
case mm of
1: writeln(января);
2: writeln(февраля);
3: writeln(марта);
4: writeln(апреля);
5: writeln(мая);
6: writeln(июня);
7: writeln(июля);
8: writeln(августа);
9: writeln(сентября);
10: writeln(октября);
11: writeln(ноября);
12: writeln(декабря);
end;
if gg mod 4=0 then writeln (високосный) else writeln(не високосный);
end.

---

var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.