Algorithmes et programmation en Pascal TD corrigés
Var f : text; s : ligne_t; n : integer;. Begin assign (f, nomf); reset (f); n := 0; while not eof (f) do begin readln (f, s); if s = m then n := n+1; end ...
Var f : text; s : ligne_t; n : integer;. Begin assign (f, nomf); reset (f); n := 0; while not eof (f) do begin readln (f, s); if s = m then n := n+1; end ...