Цитата | Quote(kot003 @ 23.11.2009 - 2:13)
Попалась вот такая задача:
Определить d (день), m (месяц) – дату k-го по счету дня високосного года.
Т.е. есть високосный год. 366 дней. Дается цифра из диапазона 1..366, надо из этой цифры изъять информацию о номере месяца и номере числа в этом месяце
Цитата | Quote
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var k:integer;
begin
Write('Vvedite nomer dnya: ');
Readln(k);
case k of
1..31: Writeln('Yanvar, ', k);
32..60: Writeln('Fevral, ', k-31);
61..91: Writeln('Mart, ', k-60);
92..121: Writeln('Aprel, ', k-91);
122..152: Writeln('Mai, ', k-121);
153..182: Writeln('Iyun, ', k-152);
183..213: Writeln('Iyul, ', k-182);
214..244: Writeln('Avgust, ', k-213);
245..274: Writeln('Sentyabr, ', k-244);
275..305: Writeln('Oktyabr, ', k-274);
306..335: Writeln('Noyabr, ', k-305);
336..366: Writeln('Dekabr, ', k-335);
end;
ReadLn;
end.