Всем приветик. Помогите пожалуйста. Никак не могу понять, как это делать, одно задание сделала, а вот второе что-то не могу ... Прикрепляю фотку, может кто поможет ;)
Всем приветик. Помогите пожалуйста. Никак не могу понять, как это делать, одно задание сделала, а вот второе что-то не могу ...
Прикрепляю фотку, может кто поможет ;)
Ответ(ы) на вопрос:
Гость
Программа (без контроля правильности ввода и без учета високосных лет):
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 день, май
Гость
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.
Не нашли ответ?
Похожие вопросы