Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
кх
0 / 0 / 0
Регистрация: 18.03.2013
Сообщений: 75
#1

Найти количество четных чисел среди компонентов файла

26.04.2013, 16:07. Просмотров 713. Ответов 1
Метки нет (Все метки)

в звдвному файле F, компоненты которого - цылы числа, найти количество четных чисел среди компонента. Распечатать все четные компоненты...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2013, 16:07
Ответы с готовыми решениями:

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

Найти количество удвоенных нечетных чисел среди компонентов файла
Дан файл состоящий из целых чисел. Найти кол-во удвоенных нечётных чисел среди...

Найти количество квадратов нечетных чисел среди компонентов файла
Пожалуйста помагите? Заполнить файл Натуральными числами полученными с помощью...

Найти количество удвоенных нечётных чисел среди компонентов файла
Заполнить файл f целыми числами,полученые с помощью генератора случайных...

Количество четных чисел среди компонентов массива
кто может сделать лабу Количество четных чисел среди компонентов массива!! кто...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
26.04.2013, 19:22 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Var
  f: File of Integer;
  i,n,x,k: Integer;
BEGIN
Write('Сколько чисел ввести в файл? ');
Readln(n);
Randomize;
Assign(f,'1.dat');
Rewrite(f);
For i:=1 to n do
begin
  x:=Random(100);
  Write(f,x);
end;
Reset(f);
While not Eof(f) do
begin
  Read(f,x);
  Write(x,' ');
end;
Writeln;
Writeln('Четные:');
Seek(f,0);
While not Eof(f) do
begin
  Read(f,x);
  If x mod 2=0 Then
  begin
    Inc(k);
    Write(x,' ');
  end;
end;
Writeln;
Writeln('Кол-во четных: ',k);
Close(f);
Readln
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2013, 19:22

Найти количество нечётных чисел среди компонентов файла и поместить их в файл последо-вательного доступа g.
Заполнить файл f целыми числами, полученными с помощью генератора случайных...

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

Найти колличество удвоеных нечетных чисел среди компонентов файла
заполнить файл f целыми числами, полученными с помощью генератора случайныых...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru