Проанализируйте, как вы используете своё личное время. напишите об эотм небольшой текст.

 

личного времени мало,все уходит на занятия и уроки,

на компьютер и интернет уходит мало времени,бла-бла

 

вообщем пиши так)

и почему это в разделе информатика?

Program dates; var date : string; dd, mm, yy : string; d, m, y : integer; function strmonth(dt : integer) : string; var res : string; begin res: =''; case dt of 1 : res: =' января '; 2 : res: = ' февраля '; 3 : res: = ' марта '; 4 : res: = ' апреля '; 5 : res: = ' мая '; 6 : res: = ' июня '; 7 : res: = ' июля '; 8 : res: = ' августа '; 9 : res: = ' сентября '; 10 : res: = ' октября '; 11 : res: = ' ноября '; 12 : res: = ' декабря '; end; strmonth : = res; end; begin write('введите дату: '); readln(date); dd: =copy(date, 1, 2); mm: =copy(date, 4, 2); yy: =copy(date, 7, 4); val(dd, d); val(mm, m); val(yy, y); writeln('сегодня ', d, strmonth(m), y, ' года'); end.

Программа (не проверяет корректность введенных данных, т.е. работает правильно только в случае, если введена корректная дата в формате dd.mm.yyyy): const months: array[1..12] of string= ('января','февраля','марта','апреля','мая','июня', 'июля','августа','сентября','октября','ноября','декабря'); var s,s1,month: string; d,m,y,code: integer; begin write('введите дату dd.mm.yyyy = '); readln(s); val(copy(s,1,2),d,code); s1: =s;   delete(s1,1,3); val(copy(s1,1,2),m,code); month: =months[m]; delete(s1,1,3); val(copy(s1,1,4),y,code); writeln(d,' ',month,' ',y); end. пример: введите дату dd.mm.yyyy = 05.04.2016 5 апреля 2016