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

• #1627 Retekegér MODERÁTOR N!tRo #1626

  Új Válasz 2006-11-14 09:14:31 #1627

  Ú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

  

  Retekegér

  MODERÁTOR

  válasz N!tRo #1626 üzenetére

  Oh, sry. Igazad van.
  Tehát itt tartok most:
  Program Cola;
  var ar, bedobva, erme: integer;
  begin
  ar:=200;
  bedobva:=0;
  WriteLn('Cola ara', ar);
  ReadLn(erme);
  bedobva:=bedobva+erme;
  WriteLn('eddig bedobva', bedobva);
  Repeat until(bedobva>=ar);
  WriteLn('Visszajaro:', bedobva-ar);
  end.
  

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