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

Формулировка задачи:

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.

Код к задаче: «Как сделать так, чтобы программа работала без массива? - Pascal ABC»

textual
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.

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ