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

• #1628 N!tRo tag Retekegér #1627

  Új Válasz 2006-11-14 09:21:10 #1628

  Ú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 #1627 üzenetére

  
  Program Cola;
  var ar, bedobva, erme: integer;
  begin
  ar:=200;
  bedobva:=0;
  WriteLn('Cola ara', ar);
  repeat
  WriteLn('eddig bedobva: ', bedobva);
  write('bedobott új érme: ');
  ReadLn(erme);
  bedobva:=bedobva+erme;
  if bedobva<ar then writeln('dobjon még be érmét!');
  until(bedobva>=ar);
  WriteLn('Visszajaro:', bedobva-ar);
  end.
  
  
  a repeat until-al volt a baj, nem lehet azt egymás után írni, kell közé utasítás, mégpedig azok, amelyek addig újra lefutnak amig a feltétel igaz nem lesz

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