- Код: Выделить всё
program L;
uses crt, sysutils;
var
date,summer,winter : text;
d,day, month, year : string;
procedure generator;
const n=60;
var
i : integer;
date: text;
day, month, year,data : string;
Begin
clrscr;
randomize;
assign (date, 'd:\data.txt');
rewrite(date);
for i:=1 to n do
begin
str((random(31)+1), day);
str((random(12)+1), month);
str(random(99), year);
if length(year) =1 then year := '0' + year;
data:=day+'.'+month+'.'+year;
writeln(date, data);
end;
close(date);
end;
begin
clrscr;
generator;
assign(date, 'd:\data.txt');
assign(summer, 'd:\summer.txt');
assign(winter, 'd:\winter.txt');
rewrite(summer);
rewrite(winter);
reset(date);
while not EOF(date) do
begin
readln(date,d);
if length(d) = 6 then
begin
day := '0'+copy(d,1,1);
month := '0'+copy(d,3,1);
year := copy(d,5,2);
end;
if length(d) = 7 then
begin
if pos('.',d) = 2 then
begin
day := '0' + copy(d,1,1);
month := copy(d,3,2);
year := copy(d,6,2);
end
else
if pos('.', d) = 3 then
begin
day := copy(d,1,2);
month := '0'+copy(d,4,1);
year := copy(d,6,2);
end;
end;
if ((month='12') or (month='01')) or (month='02') then
writeln(winter,(day+'.'+month+'.'+year));
if (month='06') or (month='07') or (month='08') then
writeln(summer,(day+'.'+month+'.'+year));
end;
end.
