Получить в файле g все компоненты файла f, кратные и 3, и 5

@Мамулька · Регистрация: 27.04.2011

Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
program a; var f:integer; m:array [1..1000] of integer; input, output: file of integer; begin assign (input,'f.txt'); assign (output,'g.txt'); reset(input); rewrite(output); while not EOF (input)do begin read ( input, f); if(m[f] mod 3=0 ) and (m[f] mod 5=0) then write(output, f); end; close(input); close(output); end.

@majesty1992 · 02.06.2011, 18:29

Ты бы задачу написал бы для начала.

@Мамулька · 02.06.2011, 18:33 **[ТС]**

Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 3, и 5.

@majesty1992 · 02.06.2011, 18:45

Pascal

program a;
var
f:integer;
input, output: file of integer;
begin
assign (input,'f.txt');
assign (output,'g.txt');
reset(input);
rewrite(output);
while not EOF (input)do
begin
read ( input, f);
if(f mod 3=0 ) [B]or[/B] (f mod 5=0) then write(output, f);
end;
close(input);
close(output);
end.

Я тоже не очень могу понять зачем ты его там использовал.
И там не and а or

@majesty1992 40 / 13 / 8 Регистрация: 15.12.2009 Сообщений: 70
	02.06.2011, 18:29	2
	Ты бы задачу написал бы для начала. 0

@Мамулька 0 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 10
	02.06.2011, 18:33 [ТС]	3
	Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 3, и 5. 0

Опции темы