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

UptoLike

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

Рубрика:

GetNext(s,i,r);

if r='JAN' THEN MONTH:=1;

if r='FEB' THEN MONTH:=2;

if r='MAR' THEN MONTH:=3;

if r='APR' THEN MONTH:=4;

if r='MAY' THEN MONTH:=5;

if r='JUN' THEN MONTH:=6;

if r='JUL' THEN MONTH:=7;

if r='AUG' THEN MONTH:=8;

if r='SEP' THEN MONTH:=9;

if r='OCT' THEN MONTH:=10;

if r='NOV' THEN MONTH:=11;

if r='DEC' THEN MONTH:=12;

GetNext(s,i,r);

Val(r,year,err);

if length(r)=2 then year:=year+1900;

GetNext(s,i,r);

Val(r,hour,err);

GetNext(s,i,r);

Val(r,min,err);

GetNext(s,i,r);

Val(r,sec,err);

GetNext(s,i,r);

if length(r)=5 then begin

Val(Copy(r,2,2),inch,err);