Ez e szar ee
2009.11.25. 16:09
program Project2131;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,i,tipp:byte; talalt:boolean;
begin
{ TODO -oUser -cConsole Main : Insert code here }
randomize;
x:=random(100)+1;
i:=0; talalt:=false;
repeat
i:= i+1;
write (i, '.tipp: ');
readln(tipp);
if (xtipp) then
writeln ('A gondolt szam nagyobb');
if (x=tipp) then
begin
talalt:= true;
writeln ('Talalt');
end;
until (i=5) or (talalt=true);
if not talalt then
writeln ('A gondolt szam: ' , x);
readln;
end.
yeah
Szólj hozzá!
Ajánlott bejegyzések:
A bejegyzés trackback címe:
https://stamy.blog.hu/api/trackback/id/tr61551878
Kommentek:
A hozzászólások a vonatkozó jogszabályok értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a Felhasználási feltételekben és az adatvédelmi tájékoztatóban.
Nincsenek hozzászólások.