Олимпиадные задачи по программированию. Ч. 3. Лучшие решения. Ускова О.Ф - 58 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

58
day:=Daymonth[month1];
end;
end;
end
else
begin
if date>29 then begin date:=1;
Inc(month) end;
if date<=0 then
begin
{сдвинуть месяц на 1 назад}
dec(month);
day:=31;
end;
end;
{проверить месяц}
if month<=0 then begin Dec(year);
month:=12; end;
if month>12 then begin Inc(year);
month:=1; end;
end;
BEGIN
ReadF;
Incr;
WriteF;
END.
Задача 7. " Дороги "
Эта задача предлагалась на межвузовской
олимпиаде по информатике в 1998 году. Ниже
приводится решение призёра олимпиады

Страницы