Napisałem program , który losuje liczbę od 10 do 100 a użytkownik ma ją zgadnąć. Chciałbym się was dopytać co musiałbym dopisać aby program zliczał ilość błędów , które popełniliśmy zanim wpisaliśmy prawidłową liczbę ?
Kod: Zaznacz cały
program zgadywanka;
var los: integer; odpowiedz: integer;
begin
randomize;
los := Random(91) + 10;
odpowiedz := 0;
while odpowiedz <> los do
begin
write('Podaj liczbe=');
readln(odpowiedz);
if odpowiedz < los then writeln('za mało');
if odpowiedz > los then writeln('za dużo');
if odpowiedz = los then writeln('dobrze');
end;
end.