Требуется помощь!

[Nougami]

Требуется помощь!
Язык: Паскаль.
Возникла проблема не могу решить задачу!
Тема: Файлы.
1)Дан файл, содержащий текст на русском языке и некоторые два слова (математика и информатика). Определить сколько раз они встречаются в тексте.

2)Записать файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элэменты, которые кратны К.

Заранее спасибо!

[RIP]

вы забыли указать на каком языке все это надо делать

[daishi424]

Сообщение от Nougami

Язык: Паскаль.

Ах, забываю родимый Паскаль с каждым годом всё больше, где ж мои 17 лет...
Немного мозгами пораскинул, вот задача (2) с маленьким "костылём" :D

program NumberCheck;
uses crt;
var
 file1, file2: text;
 n, k, i, num: integer;
begin
   clrscr;
   assign(file1, 'C:\Pascal\1.txt');
   assign(file2, 'C:\Pascal\2.txt');
   randomize;
   write('Vvedite kolichestvo elementov v 1-om faile N = ');
   readln(n);
   rewrite(file1);
   for i:=1 to n do
      begin
      num:=1 + random(100);
      write(file1, ' ', num);
      end;
   write('Vvedite chislo kratnosti K = ');
   readln(k);
   reset(file1);
   rewrite(file2);
      while not eof(file1) do begin
          read(file1, num);
          if (num mod k = 0) then write(file2, ' ', num);
      end;
   close(file1);
   close(file2);
end.

Просто создайте папку Pascal в корневой директории вашего диска C.

[Nougami]

Спасибо выручил!