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

• #3260 b05styp tag

  Új Válasz 2008-01-21 16:54:09 #3260

  Ú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

  

  b05styp

  tag

  Üdv!

  tegnap kaptam infó házit de nem bírok vele

  a lényeg hogy beírok egy mondatot amiben 2 "jaj" szó van, és javítsa ki csak az első-t hajaj-ra.

  eddigi kísérlezesésem:

  program jaj;

  {$APPTYPE CONSOLE}

  var volt:boolean;
  szo:string;
  i:byte;

  begin
  { TODO -oUser -cConsole Main : Insert code here }
  volt:=1>2;
  writeln('írj egy mondatot!');
  readln(szo);
  for i:=1 to length(szo) do
  if szo[i]='j' then
  if szo[i+1]='a' then
  if szo[i+2]='j' then
  if szo[i+3]=' 'then
  begin
  szo[i]:=****nemtom mit kéne
  volt:=1<2;
  end;
  end.

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