Вопрос Решить задачу на паскаль

[ramazan-nugamanov]

Создайте текстовый файл, который содержит только целые числа. Каждая строка может содержать несколько чисел, записанных через пробел. Выведите на экран все числа с учетом разбиения на строки. Подсчитайте количество чётных чисел в каждой строке. паскаль

мое решение ошибка где то

var s,x: integer;

f:text;

begin

assign(f, 'C:\1\input.txt'

reset (f);

s:=0;

while not eof (f) do begin

readln (f,x);

s:=s+x;

end;

close (f);

assign(f, 'C:\1\output.txt'

rewrite (f);

writeln(f, 'найденная сумма чисел =', s);

close (f);

end.

 

[safasdfas]

> ошибка где то
Когда вы научитесь уже сообщать, что за ошибка? В вашем случае было бы неплохо привести еще и содержимое файла input.txt

Что касается программы, то она работает, если ей предоставить правильные данные.

UPD: Если вам требуется, чтобы в строке было несколько чисел, записанных через пробел, замените readln (f,x); на read (f,x);

 

[Nautilus]

Ты в интеджер пихаешь текст. Преобразовывать надо.

 

[SindyBlueMix]

вас бы еще на бейсике учили праграмировать...

 

[And]

var
p,i:integer;
s:string;
f:text; ch:char;
begin
assign(F,'c:\askar.txt' {Sozdaetsya fail v ukazannom meste s ukazannim nazvaniem i raswireniem}
rewrite(f);
writeln(f,'Zdes budet text kotoriy potom soxranitsya v vawem faile' {text zapisiwaetsya v fail}
close(f);

assign(f,'c:\askar.txt' {otkritie faila dlya chtenia}
reset(f);
While not eof(f) do
begin
read(f,ch); {s4itivanie iz faila po odnomu simvolu}
write(ch); {vivod na ekran simvolov po o4eredi}
end;
close(f);
readln;
end.