Kaçıncı denemede doğru sayıyı bulduğunu yazan program.

uses crt;
var
i,a,b:integer;
begin
randomize;
a:=random(100);
for i:=1 to 10 do
begin
writeln('1-100 arasında sayı girin:');readln(b); if(a=b)then
begin
writeln('doğru',i,'denemede değeri buldun');break;end
else if(a<>b)and(a>b)then
writeln('yanlış! deneme yukarıda bir değer gir')
else if(a<>b)and(b>a)then
writeln('yanlış! deneme aşağıda bir değer gir');

end;
readln;
end.


Linkback: https://www.buyuknet.com/kacinci-denemede-dogru-sayiyi-buldugunu-yazan-program-t8610.0.html