Programalama > PASCAL


Ort. 5
Puan ver:
program asalcarpan;
uses crt;
var i,k,n:integer;
    a:array [1..50] of real;

Begin

  clrscr;
  writeln;
  write('Asal ‡arpanlarna ayrlacak sayy giriniz :');
  readln(n);
  i:=n;
  k:=0;
  repeat
    i:=i-1;
    if n mod i = 0 then
    begin
      k:=k+1;
      a[k]:=n/i;
      n:=i;
    end;
  until i=1;
  writeln;
  writeln('**** Asal €arpanlar ****');
  writeln;
  for i:=1 to k do write(a[i]:5:0,' ');
  repeat until keypressed;

End.



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.