Program - Hádanie čísla :)

Hádanie čísla (háda človek)

Program napísaný v jazyku Pascal.

program HadaniecislaOk;

var
cislo,tip,pokusy: integer;

begin
randomize;
pokusy:= 0;
tip:= Random(101);
writeln('Myslim si cislo od 1 do 100.');
repeat
writeln ('Aky je vas tip?');
readln (cislo);
pokusy:= pokusy + 1;
if tip > cislo then writeln('Cislo je vacsie.');
if tip < cislo then writeln('Cislo je mensie.');
until tip = cislo;
writeln ('Gratulujem, po ', pokusy, '. pokusoch ste uhadli.');
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Fibonacciho postupnosť :)
• Program - Hanojské veže :) →