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

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