Osman Kılıç

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.

uses crt;
var
x,y:integer;
begin
for x:=10 to 99 do begin
if ((x mod 4)<>0) then
write(x,’  ‘);
end;
readln;
end.

uses crt;
var
x,y:integer;
begin
clrscr;
for x:=10 to 99 do begin
if ((x mod 4)<>0) then
y:=y+1;
end;
write(y);
readln;
end.

uses crt;
var
x,y:integer;
begin
clrscr;
for x:=10 to 99 do begin
if ((x mod 4)<>0)then
y:=y+1;
if y=38 then begin
writeln(x);break;end;    end;
readln;
end.

uses crt;
var
y,i:integer;
x,renk,r1,r2,r3:string;
begin
clrscr;
writeln(‘direnç kodunu gir:’);readln(x);
r1:=copy(x,1,1);
r2:=copy(x,2,1);
str(length(x)-2,r3);
i:=0; More »

uses crt;
var
x,c:integer;
a,b,kod:string;
begin
clrscr;
writeln(‘direnç kodunu gir:’);readln(kod);
x:=length(kod);
a:=copy(kod,1,1);
b:=copy(kod,2,1);
c:=length(kod)-2; More »

uses crt;
var
asal,k,a,b,c,i,j:integer;
begin
clrscr;
for i:=100 to 150 do begin
a:=a+i;
if (i mod 2 =0) then
b:=b+i
else
c:=c+i;
for j:=1 to i do begin
if (i mod j=0) then
asal:=asal+1;
if asal=3 then
break;
end;
if asal=2 then    begin
k:=k+1;
gotoxy(54,k+5);
writeln(i);
end;
asal:=0;
end;
gotoxy(5,1);
writeln( ‘Tek sayıların toplamı : ‘,c);
gotoxy(5,3);
writeln( ‘Çift sayıların toplamı: ‘,b);
gotoxy(5,5);
writeln( ‘Tüm sayıların toplamı : ‘,a);
gotoxy(40,5);
writeln(‘ *********Asal Sayılar******** ‘);
readkey;
end.

uses crt;
var
i,sifre:integer;
devam:string;
begin
clrscr;
i:=1;
devam:=’e’;
while (devam=’e’) do begin
i:=i+1;
writeln(‘şifreyi girin:’);readln(sifre);
if(sifre=123)then  begin
write(‘Hoşgeldin’);break;end
else
writeln(‘tekrar dene’);
if(i>3)then begin
writeln(‘devam etmek istermisiniz:e/h’);
devam:=readkey;
if(devam=’h’)then halt; i:=1; end;
end;
readln;
end.

uses crt;
var
a,fahrenheit:real; x:integer;
begin
clrscr;
x:=1;
a:=-21;
while a<1 do begin
a:=a+1;
x:=x+1;
gotoxy(1,1); writeln(‘celcius’);
gotoxy(15,1); writeln(‘fahrenheit’);
gotoxy(1,x); write(a:3:0);
gotoxy(15,x); fahrenheit:=(9/5*a)+32; writeln(fahrenheit:3:1); end;
readln;
end.

uses crt;
var
saat,dakika,islem,islem2:integer;
begin
clrscr;
write(‘saati gir:’);readln(saat);
write(‘dakikayı gir:’);readln(dakika);
islem:=saat*60;
islem2:=islem+dakika;
writeln(‘islem2’);
readln;
end.