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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

54
Val(Copy(r,4,2),incmin,err);
if s[1]='-' then
begin
inch:=-inch;
incmin:=-incmin;
end;
end
else
begin
if r='UT' then begin inch:=00;
incmin:=00; end;
if r='GMT' then begin inch:=00;
incmin:=00; end;
if r='EDT' then begin inch:=-4;
incmin:=00; end;
if r='CDT' then begin inch:=-5;
incmin:=00; end;
if r='MDT' then begin inch:=-6;
incmin:=00; end;
if r='PDT' then begin inch:=-7;
incmin:=00; end;
end;
INCH:=3-INCH;
INCMIN:=-INCMIN;
Close(f);
end;
Function IntToStr(x:integer):string;
{перевод из числа в строу}
var r:string; {временная переменная}
begin

Страницы