webmaster
 
Konu Kilitli
31-01-2010 05:16:04
 

Pascal Soru-Cevap

klavyeden girilen tamsayının asal sayı olup olmadığını bulan program

uses crt;
var
sayi:integer;
begin
clrscr;
write('Bir sayi gir:'); readln(sayi);
if sayi mod 2=0 then write(sayi,' asaldegildr')
else if sayi mod 3=0 then write(sayi,' asaldegildr')
else if sayi mod 5=0 then write(sayi,' asaldegildr')
else if sayi mod 7=0 then write(sayi,' asaldegildr')
else write(sayi,' asaldir');
readln;
end.

klavyeden girilen 3 haneli bir tamsayının birler,onlar ve yüzler hanesini bulan program

uses crt;
var
abc,a,b,c:integer;
begin
clrscr;
write('3 Basamaklı bir sayi giriniz'); readln(abc);
a:=abc div 100;
b:=(abc - 100 * a) div 10;
c:=abc mod 10;
writeln('Yuzler basamagi:',a);
writeln('Onlar basamagi:',b);
writeln('Birler basamagi:',c);
readln;
end.

-Ders Notu-

Bir önceki yazı Pascal Klavye Kısa Yolları hakkında bilgi vermektedir.

Konu Kilitli

"Pascal Soru-Cevap" konusu hakkında etiketler
and asal cevap cevaplama cevaplar cevaplari cozum cozumleri cozumlu dili dilinde dilleri div else hakkinda ile ilgili ilili kullanimi mod ornekler ornekleri pascal pascalda proglama program programi programlama readln sayi soru sorular sorulari test vize

Pascal Klavye Kısa Yolları Önceki | Sonraki Vscrollbar




Saat: 01:01 - Webmaster Forumu - Rss - Arşiv
İletişim Bilgileri, Contact Us, Kullanım Sözleşmesi, Gizlilik