Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Кубик Рубика
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 57
1

Напечатать в первой строке нечетные, во второй - четные числа файла

18.04.2015, 10:30. Просмотров 951. Ответов 3
Метки нет (Все метки)

Дан файл, содержащий числа. Напечатать в первой строке нечетные, во второй четные
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2015, 10:30
Ответы с готовыми решениями:

Все четные числа файла записать во второй файл, а нечетные — в третий
Имеется файл, элементами которого являются целые числа. Все четные числа этого...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого...

Четные числа файла запишите в один выходной файл, а нечетные – в другой
Дан файл целых чисел. Четные числа запишите в один выходной файл, а нечетные –...

Создать 3 файла - содержащий отрицательные, четные и нечетные числа, проанализировав введенные значения
2. Создайте файл f целых чисел от А до В (значения чисел вводятся с...

Разместив все нечетные числа в начале файла, а четные в конце, сохранив порядок следования
написать программу: Создать файл, содержащий не более 100 случайных целых...

3
Puporev
Модератор
55417 / 42546 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
18.04.2015, 10:45 2
Цитата Сообщение от Кубик Рубика Посмотреть сообщение
Напечатать в первой строке нечетные, во второй четные
А если не войдут в одну строку?
0
Кубик Рубика
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 57
18.04.2015, 10:49  [ТС] 3
Это условие можно не учитывать. Будем считать что войдут
0
Puporev
Модератор
55417 / 42546 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
18.04.2015, 11:41 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var f:text;
    a,l1,l2:integer;
    s:string;
begin
clrscr;
assign(f,'input.txt');
reset(f);
l1:=1;
l2:=1;
while not seekeof(f) do
 begin
  read(f,a);
  str(a,s);
  if odd(a)then
   begin
    gotoXY(l1,1);
    write(a);
    l1:=l1+length(s)+1;
   end
  else
   begin
    gotoXY(l2,2);
    write(a);
    l2:=l2+length(s)+1;
   end;
 end;
close(f);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2015, 11:41

Задача со стеками. В первый стек поместить четные числа в порядке неубывания, во второй стек поместить нечетные
Даны четыре стека.Два первых стека пустые,а в двух других находятся натуральные...

В файл g записать все четные числа из файла f, а в h все нечетные.
Организовать файл последовательного доступа f, состоящий из N целых чисел....

Поменять в строке четные / нечетные буквы
Всем привет! Помогите исправить модуль, который меняет парные и непарные буквы...


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

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

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