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

[Nougami]

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

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

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

[RIP]

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

[daishi424]

Язык: Паскаль.
Ах, забываю родимый Паскаль с каждым годом всё больше, где ж мои 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]

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