AHOJ.
Prosím vás, mohla bych někoho poprosit o zdrojový kód tohoto příkladu?? Je to příklad do školy a vůbec si s ním nevím rady. Děkuji. MĚLO BY TO BÝT V TEXTOVÉM REŽIMU.


Test paměti - testovanému se na okamžik objeví na obrazovce náhodné trojciferné číslo, pokud ho potom správně zapíše, ukáže se mu čtyřciferné a tak dále, vždy, když si číslo správně zapamatuje, ukáže se mu v dalším kole číslo o jednu cifru delší. Hráč končí, když neuhodne a vypíše se mu, kolikaciferné číslo uhodl naposledy. (využijte číselný typ longint).

Kdyz mi reknete do jake skoly a pro jakeho ucitele, tak vam klidne pomuzu.

Proč jenom když vám řeknu do jaké školy a pro jakého učitele?

Kdybych se měla do jaké učebnice podívat, tak se asi podívám !!!

program cisla;

uses crt;

var pocet, rozsah, nahodne, zadal : longint;

begin
	randomize;
	pocet := 0;
	rozsah := 1;
	repeat
		pocet := pocet + 1;
		rozsah := rozsah * 10;
		nahodne := (rozsah div 10)+random(rozsah-rozsah div 10);
		clrscr;
		writeln(nahodne);
		delay(3000);
		clrscr;
		write('Ake cislo tam bolo: ');
		readln(zadal);
	until zadal <> nahodne;
	writeln('naposledy si uhadol ',pocet-1,'-ciferne cislo');
end.