Помогите пожалуйста. Очень надо.
Исправте ошибки.
program untitled;
uses crt;
type
m=array[1..100]of integer;
e= file of integer;
var
k,t:integer;
f,g,h:e;
i,n,c,a:integer;
BEGIN
assign(f,\'f.dat\');
assign(g,\'g.dat\');
assign(h,\'h.dat\');
rewrite(f);
writeln(\'ввод n\');
read(n);
for i:=1 to n do
begin
writeln(\'ввод k[i]\');
readln(t);
write(f,t);
end;
reset(f);
rewrite(g);
rewrite(h);
while not eof(f)do
begin
read(f,t);
a:=t mod 2;
if a<>0
then
begin
read(g,t);
write(t);
writeln(\'Fail chetnih chisel:\');
while not eof(g) do
begin
read(g,t);
write(t,\' \');
end;
end
else
read(h,t);
write(t);
writeln(\'Fail nechetnih chisel:\');
while not eof(h) do
begin
read(h,t);
write(t,\' \');
end;
end;
close(f);
close(g);
close(h);
end.
Дан файл f с целыми числами . Нужно из этого файла взять нечетные числа поместить в файл h . А четные в файл g.
Ответ
0/5 (0 оценок)
1
Green3095 7 лет назад
Светило науки - 76 ответов - 0 раз оказано помощи
Дан файл f с целыми числами . Нужно из этого файла взять нечетные числа поместить в файл h . А четные в файл g.
Оцените пользу ответа
Мозг Отвечающий

Остались вопросы?

Задать вопрос