Всем приветик. Помогите пожалуйста. Никак не могу понять, как это делать, одно задание...

Question

Всем приветик. Помогите пожалуйста. Никак не могу понять, как это делать, одно задание сделала, а вот второе что-то не могу ...
Прикрепляю фотку, может кто поможет ;)

---

Comments

нужно ли учитывать високосный / невисокосный год?

---

Можно (но это вроде не обязательно)

Answer 1

Программа (без контроля правильности ввода и без учета високосных лет):
var m,y:integer;
months:array[1..12] of string=
 ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
begin
write('Введите месяц и год: ');
readln(m,y);
case m of 
 1,3,5,7,8,10,12: write('31 день, ');
 2              : write('28 дней, ');
 4,6,9,11       : write('30 дней, ');
 end;
writeln(months[m]);
end.

Пример:
Введите месяц и год:5 2016
31 день, май

Comments

Это более подходит, но сделать бы , чтобы выводило : май 31 день, можно как-нибудь ?

---

Строчку writeln(months[m]); написать перед строкой case m of

Answer 2

Var
a,z:integer;
begin
write('Введите год: ');
readln(z);
write('Введите номер месяца: ');
readln(a);
 case a of
    1: writeln(z,' ','год',' ','Январь.31 день');
     2: writeln(z,' ','год',' ','Февраль.29 дней');
    3: writeln(z,' ','год',' ','Март.31 день');
4: writeln(z,' ','год',' ','Апрель.30 дней');
5: writeln(z,' ','год',' ','Май.31 день');
6: writeln(z,' ','год',' ','Июнь.30 дней');
7: writeln(z,' ','год',' ','Июль.31 день');
8: writeln(z,' ','год',' ','Август.31 день');
9: writeln(z,' ','год',' ','Сентябрь.30 дней');
10: writeln(z,' ','год',' ','Октябрь.31 день');
11: writeln(z,' ','год',' ','Ноябрь.30 дней');
12: writeln(z,' ','год',' ','Декабрь.31 день');
end;
end.