Меню сайта
Форма входа
Категории раздела
Учебник по Паскалю [13] Практика [23]
примеры программ
Главная » Статьи » Pascal » Практика

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

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)
Просмотров: 3826 | Теги: месяц паскаль, pascal количество дней в месяце, сосчиталь паскаль, количество дней в месяце паскаль | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ссылки