ПАСКАЛЬ 9,1. Запросить у пользователя день, месяц и год. Вывести на экран: если день…

Question

38

ПАСКАЛЬ 9,1. Запросить у пользователя день, месяц и год. Вывести на экран: если день от 1 до 5, то вывести «начало», если от 6 до 14, то вывести «первая половина», если 15, то вывести «середина», если от 16 до 25, то вывести «вторая половина», если от 26 до 31, то вывести «конец». В той же строке вывести название месяца в родительном падеже. Проверить и на другой строке вывести «високосный» или «невисокосный» год.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alex0377 · Accepted Answer

Uses crt; var dd,mm,gg: integer; beginreadln (dd,mm,gg); case dd of1… 5: writeln ('начало'); 6… 14: writeln ('первая половина'); 15: writeln ('середина'); 16… 25: writeln ('вторая половина'); 26… 31: writeln ('конец'); end; case mm of1: writeln ('января'); 2: writeln ('февраля'); 3: writeln ('марта'); 4: writeln ('апреля'); 5: writeln ('мая'); 6: writeln ('июня'); 7: writeln ('июля'); 8: writeln ('августа'); 9: writeln ('сентября'); 10: writeln ('октября'); 11: writeln ('ноября'); 12: writeln ('декабря'); end; if gg mod 4=0 then writeln ('високосный') else writeln ('не високосный'); end.-var a: integer; beginreadln (a); writeln (a mod 10,a); end.

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: