ПАСКАЛЬ 9.1. Запросить у пользователя день, месяц и год. Вывести ** экран: если день от...

Question

ПАСКАЛЬ

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

9.2. Запросить у пользователя целое число, последнюю цифру дописать впереди числа, вывести результат на экран.

Comments

ХОТЯ НЕТ

---

определись, пожалуйста)

---

В РОДИТЕЛЬНОМ ПАДЕЖЕ ЦИФРА БЫТЬ НЕ МОЖЕТ)

---

это вывод в р.п. Меня интересует ввод

---

а есть разница?)

---

в коде. мне переменную месяца задавать как строку или как целое число

---

и в операторе case писать слова или цифры

---

пусть будут слова)

---

нет, пусть будут цифры, в операторе case либо числа, либо символы (по одной букве). Со словами заморочиться - прописать для каждого случая через if..then

---

спасибо)

Answer 1

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.