Guten Abend,
das ganze geht auch nur mit einer Schleife.
(..und einrücken nicht vergessen)
Grüße
Klaus
Delphi-Quellcode:
repeat
i:=i+1;
write('Eingabe deiner Ratezahl rt=');
readln(rt);
writeln('Anzahl deiner Versuche='+IntToStr(i));
if zf<rt then
begin
writeln('Die Zufallszahl ist kleiner als deine Ratezahl');
end
else
begin
writeln('Die Zufallszahl ist groesser als deine Ratezahl');
end;
if i = 5 then
writeln('Schon 5 Versuche?');
readln;
until i=10;
writeln('10 ist aber echt viel!');
readln;