Új hozzászólás Aktív témák

• #1967 N!tRo tag Retekegér #1966

  Új Válasz 2007-08-25 13:31:39 #1967

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  N!tRo

  tag

  válasz Retekegér #1966 üzenetére

  ...
  var adott_ch : char;
  count : integer;
  ...
  adott_ch:='e';
  count:=0;
  readln(f,s);
  repeat
  for i:=0 to (lenght(s)-1) do
  if s[i ]=adott_ch then count:=count+1;
  readln(f,s);
  until eof(f);
  
  ezt csak így fejből írtam, lehet tartalmaz hibát, rég ültem pascal előtt

Új hozzászólás Aktív témák