Osman Kılıç

31 Oca 2012 @ 8:59 PM

100-150 arasındaki a)Tek sayıların toplamını b)Çift sayıların toplamını c)Asal sayıların toplamını d)Tüm sayıların toplamını bulan program.

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.

Kategori: Pascal Programlama Konu Sahibi: NIKIMLOSAC
En son düzenleme: 31 Oca 2012 @ 08 59 PM

Email • Permalink

Konu Hakkında

Kategoriler

Sayfalar

En Çok Okunan

Son Açılan Başlıklar

Açıklama

100-150 arasındaki a)Tek sayıların toplamını b)Çift sayıların toplamını c)Asal sayıların toplamını d)Tüm sayıların toplamını bulan program.

Responses to this post » (None)

Post a Comment

Pascal Örnekleri

Wp eklenti listesi