Program vás vyskúša v typovaní čísel
Delphi & Pascal (česká wiki)
Kategórie: KMP (Programy mladých programátorů)
Program: Opakovanie.pas
Soubor exe: Opakovanie.exe
Program: Opakovanie.pas
Soubor exe: Opakovanie.exe
Program vás vyskúša v typovaní čísel
{ OPAKOVANIE.PAS } { Program vas vyskusa v typovani cisel :) } { } { Datum:26.11.2011 http://www.trsek.com } Program Opakovanie; uses crt; var I:integer; tip:integer; begin randomize; I:=(random(100)+1); writeln(I); repeat readln(tip); if I > tip then writeln('Skus vacsie cislo'); if I < tip then writeln('Skus mensie cislo'); if I = tip then begin textcolor(lightgreen); writeln('Gratulujem uhadol si.'); end; until I = tip; readln; end.