Записать файл последовательного доступа f целыми числами, полученным с помощью генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n
Записать файл последовательного доступа f целыми числами, полученным с помощью генератора случайных чисел. Получить в файле g все компоненты файла f,
которые делятся на m и не делятся на n
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var
a:array [1..5] of integer;
i,m,n:integer;
f,g:Text;
BEGIN
clrscr; Write('m,n = ');
Read (m,n);
randomize;
Assign(f,'f.txt');
rewrite(f); //в фаил
for i:=1 to 5 do begin
a[i]:=random(10);
write(f,a[i]:2);
end;
Close(f);
Assign(g,'g.txt');
Rewrite(g); //в фаил
for i:=1 to 5 do
if ((a[i] mod m) = 0) and ((a[i] mod n) <> 0) then Write(g,a[i]:2);
Close(g);
END.
abc pascal
Не нашли ответ?
Похожие вопросы