Как сделать так, чтобы программа работала без массива?

@progoff · Регистрация: 15.06.2015

Pascal

var f:text;
a,i,n:integer;
ars:array of string;
begin;
assign(f,'C:\Users\oleg\Desktop\хлам\для сдачи ноут\7 лаба\о.txt');
reset(f);
while not Eof(f) do//если достигнут конц фала то возвращает истину
begin;
inc(n);
setlength(ars,n+1);
readln(f,ars[n]);
end;
close(f);
for i:=1 to n do
if pos('.',ars[i])<>0 then a:=a+1;
writeln(a);
end.

@Puporev · 18.12.2015, 10:39

Pascal

var f:text;
    a:integer;
    ars:string;
begin;
assign(f,'C:\Users\oleg\Desktop\хлам\для сдачи ноут\7 лаба\о.txt');
reset(f);
a:=0;
while not Eof(f) do//если достигнут конц фала то возвращает истину
 begin
  readln(f,ars);
  if pos('.',ars)<>0 then a:=a+1;
 end;
close(f);
writeln(a);
end.

Опции темы