Удалить четные элементы из файла

@Dena_ · Регистрация: 18.09.2012

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

Дан файл целых чисел удалить из него все элементы с четными номерами

Pascal

var,Ft:file of integer;
i: integer;
Begin
reset (Ft)
assign (Ft,'Nastya.txt');
Rewrite(Ft);
While not eof (Ft) do
i:=1
if i nod 2 do
Delete (Ft,'i);
close (Ft)
end.

@Taftis · 26.12.2012, 09:57

Сообщение от Dena_

reset (Ft)
assign (Ft,'Nastya.txt');

поменяй местами

Добавлено через 52 секунды

Сообщение от Dena_

Delete (Ft,'i);

убери апостроф

@Dena_ · 26.12.2012, 10:28 **[ТС]**

все равно не работает, как сделать чтобы чктные элементы удалились

@isqoff · 26.12.2012, 17:41

Сообщение от Dena_

if i nod 2 do

if i mod 2 = 0 then

@Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628
	26.12.2012, 09:57	2
	Сообщение от Dena_ reset (Ft) assign (Ft,'Nastya.txt'); поменяй местами Добавлено через 52 секунды Сообщение от Dena_ Delete (Ft,'i); убери апостроф 1

@Dena_ 0 / 0 / 1 Регистрация: 18.09.2012 Сообщений: 30
	26.12.2012, 10:28 [ТС]	3
	все равно не работает, как сделать чтобы чктные элементы удалились 0

@isqoff Добры_Змейка 53 / 53 / 43 Регистрация: 09.06.2010 Сообщений: 170
	26.12.2012, 17:41	4
	Сообщение от Dena_ if i nod 2 do if i mod 2 = 0 then 0