uses crt;
var
a,b:integer;

begin
readln(a);
b:=2;
repeat
if a/b=a div b then begin
a:=a div b;
writeln(b);
end
else begin

b:=b+1;
end;
until a=1;

readln;

end.:100:

[errayn]

bu pascal dili delphinin referans ettigi program degil mi?

[muti009]

tesekkürler kardeş ellerine sağlık

[maraz60]

tskl arkadasım

[Hasan62hasan]

Teşekkürler. Emeğine Sağlık. Güzel Bir çalışma

[fastdevil]

tşekkürler kardeşşş

[alemci4529]

tesekkürler

[yanlızkurt]

saolllll.....

[fatiha]

sağolasın..........

[TurboMan]

errayn Nickli Üyeden Alıntı

bu pascal dili delphinin referans ettigi program degil mi?

Program değil de programlama dili desek daha doğru olur.
Pascal dilinin bir dünya versiyonu var.
Turbo Pascal da Borland firmasının geliştirdiği bir pascal versiyonu da bunlardan biri.
Zamanla gelişerek, 1995 yılında görsellik eklenerek Windows için, adı Delphi oldu.
Temelde gene pascal dil sintaksını kullanmaktadır.