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

@MaRiShKaa · Регистрация: 16.04.2011

Author24 — интернет-сервис помощи студентам

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

@riv94 · 19.04.2011, 05:49

вот такая программка... подгонишь под себя... я делал через одномерный массив, но т.к я не знаю скока элементов, поэтому ограничился 1000. Если будет мало, то увеличишь!

Pascal

program a;
var
f,g:integer;
m:array [1..1000] of integer;
begin
assign (input,'f.txt');
assign (output,'g.txt');
reset(input);
rewrite(output);
for i:=1 to 1000 do read m[i];
for i:=1 to 1000 do 
        if (m[i] mod 3=0) and (m[i] mod 5=0) then write(m[i],' ');
close(input);
close(output);
end.

@MaRiShKaa · 19.04.2011, 16:51 **[ТС]**

Спасибо,а то я совсем не разбираюсь в лазарусе(( а работы то надо как то делать-заочка ,первый курс института

@riv94 · 21.04.2011, 05:39

я тоже тут одному знакомому лабораторные пишу, тоже студенту-первокурснику, и тоже заочнику)))

@MaRiShKaa 0 / 0 / 0 Регистрация: 16.04.2011 Сообщений: 9
		1
	Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 18.04.2011, 16:34. Показов 7417. Ответов 3 Метки нет (Все метки) Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 3, и 5. 0

@MaRiShKaa 0 / 0 / 0 Регистрация: 16.04.2011 Сообщений: 9
	19.04.2011, 16:51 [ТС]	3
	Спасибо,а то я совсем не разбираюсь в лазарусе(( а работы то надо как то делать-заочка ,первый курс института 0

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	21.04.2011, 05:39	4
	я тоже тут одному знакомому лабораторные пишу, тоже студенту-первокурснику, и тоже заочнику))) 0