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

По заданному номеру месяца будет напечатано его название и указать, количество дней в месяце (оператор выбора Case).

Например: Введите № месяца -> 1 Это Январь (дней - 31)

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

дальше измени сама

var month:integer;
begin
readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln (january (31 days) );
2 : writeln (fabruary (28 days) );
3 : writeln (march (31 days));
4 : writeln (April (31 days) );
5 : writeln (fabruary (28 days));
6 : writeln (march (31 days));
7 : writeln (january (31 days) );
8 : writeln (fabruary (28 days) );
9 : writeln (march (31 days));
10 : writeln (january (31 days) );
11 : writeln (fabruary (28 days) );
12: writeln (march (31 days));
end
else writeln(error);
readln;
end.