Rasgele üretilen sayı ile bizim girdiğimiz sayının aynı olup olmadığını bulan program.
)uses crt;
var
a,b,i:integer;
begin
randomize;
a:=random(10);
for i:=1 to 3 do begin
write(‘sayıyı giriniz:’);readln(b);
if (a=b) then begin
writeln(‘doğru’); break; end
else
writeln(‘yanlış’);end;
readln;
end.
Linkback: https://www.buyuknet.com/rasgele-uretilen-sayi-ile-bizim-girdigimiz-sayinin-ayni-olup-olmadigini-bulan-pr-t8608.0.html