Дан файл целых чисел. Подсчитать произведение чисел большее 5

@Ученик96 · Регистрация: 15.10.2012

Pascal

program primer;
var fx: text;
s,c:integer;
begin
assign(fx,'F:\0001.txt');
reset (fx);
S:=0;
while not Eof(fx) do
begin
read (fx,c);
If c > 5 then S:=S*c;
end;
close (fx);
writeln('S=',S);
end.

Помогите пожалуйста, что то не работает.

@Roman1295 · 16.10.2012, 18:10

Код

program primer;
var fx: file of integer;
begin
assign(fx,'F:\0001.txt');
reset (fx);
S:=1;

Типизированный же файл. И переменной S значение 1 должно быть присвоено, ибо умножение.

@Ученик96 · 16.10.2012, 18:39 **[ТС]**

Точно. Но ответ всё равно 0.

@Roman1295 8 / 8 / 9 Регистрация: 01.10.2012 Сообщений: 100
	16.10.2012, 18:10	2
	Код program primer; var fx: file of integer; begin assign(fx,'F:\0001.txt'); reset (fx); S:=1; Типизированный же файл. И переменной S значение 1 должно быть присвоено, ибо умножение. 0

@Ученик96 2 / 2 / 1 Регистрация: 15.10.2012 Сообщений: 16
	16.10.2012, 18:39 [ТС]	3
	Точно. Но ответ всё равно 0. 0

Опции темы