Klavyeden girilecek şekilde n basamaklı x’e bölünemeyen y. sayıyı yazan program.

Klavyeden girilecek şekilde n basamaklı x’e bölünemeyen y. sayıyı yazan program.

Klavyeden girilecek şekilde n basamaklı x’e bölünemeyen y. sayıyı yazan program.

uses crt;
   var
   son,ilk,i,b:real;
   sayac,n,x,y:integer;
   begin
   clrscr;
   write(‘basamak sayısını gir:’);readln(n);
   write(‘bölüm sayısını gir:’);readln(x);
   write(‘kaçıncı sayı:’);readln(y);
   son:=exp(n*ln(10)-1);
   ilk:=exp((n-1)*ln(10));

   sayac:=0;
   i:=ilk;
   while i<son do begin
   b:=i;
   while b>=x do
   b:=b-x;
   if (b>=1) then
   sayac:=sayac+1;
   if (sayac=y) then begin
   writeln(i:0:0);break;end;
   i:=i+1;end;
   readln;
   end.

Linkback: https://www.buyuknet.com/klavyeden-girilecek-sekilde-n-basamakli-xe-bolunemeyen-y-sayiyi-yazan-program-t38138.0.html