|
Вопрос # 4 088/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты! помогите доделать задачу. тема компонентные файлы. дано файл f простих чисел, записанных в порядке возростания. Удалить с него все числа с парной сумой цыфр.
Приложение: Переключить в обычный режим- program tipi;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
-
- type
- zapus = record
- int : integer;
- end;
- tfile = file of zapus;
- var
- f:tfile;
- procedure StvorZapus(var z:zapus);
- begin
- with z do
- begin
- write('vvedite chisla y poryadky zrostannya'); readln(int);
- end;
- end;
- procedure StvorFile(var f: tfile);
- var z:zapus;
- begin
- writeln('stvorennya faylu zapisiv:');
- rewrite(f);
- StvorZapus(z);
- while z.int mod 2 <> 0 do
- begin
- write(f,z);
- StvorZapus(z);
- end;
- close(f);
- end;
- procedure PrintFile(var f:tfile);
- var z:zapus;
- begin
- writeln('pereglyad faylu:');
- reset(f);
- while not eof(f) do
- begin
- read(f,z);
- writeln(z.int);
- end;
- close(f);
- end;
- end.
-
 |
Вопрос задал: Алексей Комнин (статус: Посетитель)
Вопрос отправлен: 25 апреля 2010, 11:34
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 26; последнее сообщение — 26 апреля 2010, 07:28; участников в обсуждении: 4.
Страницы: [« Предыдущая] [1] [2]
|
min@y™ (статус: Доктор наук), 25 апреля 2010, 18:44 [#21]:
Цитата (Вадим К):
А в списке простых числе делиться на два будет только одно число  .
Ни одного, кроме числа 2. Ты прав. Пиво пьёшь? Может мне приехать в отпуск в одессу? Дерибасовскую покажешь? Всю жизнь мечтал! На привоз хочу сходить и перессы.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 25 апреля 2010, 18:51 [#22]:
Нет, я пиво не пью (вообще) и к алкоголю отношусь с неким презрением (это мое личное убеждение). Сводят, покажут. Правда смотря когда приедешь, я могу в тот момент не быть в городе.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 25 апреля 2010, 18:55 [#23]:
Планирую в августе.
Не любишь пиво - есть коктебель. Абажаю... Весчь!
Но то, что я в отпуск поеду на (в) Украину - это факт!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 25 апреля 2010, 19:22 [#24]:
август не знаю, июнь-июль могу быть в заморских краях.
приезжай. научим не ругаться, не пить)))
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 25 апреля 2010, 19:27 [#25]:
Маловероятно меня научить этим гадостям.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
webkent (статус: 2-ой класс), 26 апреля 2010, 07:28 [#26]:
Ох, черт, ответил на вопрос вместо мини-форума...
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
