0 / 0 / 0
Регистрация: 16.04.2011
Сообщений: 9
1

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

18.04.2011, 16:34. Показов 7075. Ответов 3
Метки нет (Все метки)

Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 3, и 5.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2011, 16:34
Ответы с готовыми решениями:

Дан файл f, компоненты которого являются действительными числами. Найти: количество отрицательных и положитель
Дан файл f, компоненты которого являются действительными числами. Найти: количество отрицательных и...

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

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

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

3
66 / 66 / 29
Регистрация: 13.02.2011
Сообщений: 392
19.04.2011, 05:49 2
вот такая программка... подгонишь под себя... я делал через одномерный массив, но т.к я не знаю скока элементов, поэтому ограничился 1000. Если будет мало, то увеличишь!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
1
0 / 0 / 0
Регистрация: 16.04.2011
Сообщений: 9
19.04.2011, 16:51  [ТС] 3
Спасибо,а то я совсем не разбираюсь в лазарусе(( а работы то надо как то делать-заочка ,первый курс института
0
66 / 66 / 29
Регистрация: 13.02.2011
Сообщений: 392
21.04.2011, 05:39 4
я тоже тут одному знакомому лабораторные пишу, тоже студенту-первокурснику, и тоже заочнику)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2011, 05:39
Помогаю со студенческими работами здесь

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

Дан файл f, компоненты которого являются целыми числами. Получить файл g, образованный из файла f исключением повторных вхождений одного и того же чис
Помогите пожалуйста, у меня что-то не очень получается разобратся. Задание: Дан файл f, компоненты...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru