Составить программу, которая бы определяла количество дней в месяце. Ввод месяца производить с клавиатуры.
Составить программу, которая бы определяла количество дней в месяце.
Ввод месяца производить с клавиатуры.
Program Reshenie;
Uses crt;
Var m:string;
i,k:integer;
begin
clrscr;
write('Введите интересующий Вас месяц: ');
readln(m);
if (m='Январь') or (m='Март') or (m='Май') or (m='Июль') or (m='Август')
or (m='Октябрь') or (m='Декабрь') then k:=31;
if m='Февраль' then k:=28;
if (m='Апрель') or (m='Июнь') or (m='Сентябрь') or (m='Ноябрь') then k:=30;
writeln('В этом месяце ',k,' дней');
writeln('Нажмите Enter');
readln;
end.
|
| Категория: Практика | Добавил: nazgull (09.02.2012)
|
| Просмотров: 3820
| Теги:
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |