Задача на Паскале.

[papalamer]

Файлы пустые, не пишет в них.
Я спать, на сегодня хватит.
Спасибо за помощь.

[papalamer]

Вот работающая прога:

Код: Выделить всё

program Lr3;
uses crt;
     var
     date,summer,winter : text;
     d,s : string;
     begin
          assign(date, 'd:\date.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);
                  s:=copy(d,4,2);
                  if (s='12') or (s='01') or (s='02') then
                      writeln(winter,d);
                  if (s='06') or (s='07') or (s='08') then
                      writeln(summer,d);
              end;
           close(date);
           close(summer);
           close(winter);
      end.

Правда немного не по условию, но работает.
dr.Jekill спасибо за помощь

[papalamer]

Окончательный вариант проги, теперь всё по условию.

Код: Выделить всё

program Lr3;
uses crt;
     var
     date,summer,winter : text;
     d,s : string;
     begin
          assign(date, 'd:\date.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);

                  s:=copy(d,4,2);
                  if (s='12') or (s=' 1') or (s=' 2') then
                  begin
                       While Pos(' ', d) > 0 Do d[Pos(' ', d)]:='0';
                       writeln(winter,d);
                   end;
                  if (s=' 6') or (s=' 7') or (s=' 8') then
                  begin
                       While Pos(' ', d) > 0 Do d[Pos(' ', d)]:='0';
                       writeln(summer,d);
                  end;
              end;
           close(date);
           close(summer);
           close(winter);
      end.

[dr.Jekill]

молодец