pascal ekok programı etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
pascal ekok programı etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

18 Ekim 2009 Pazar

Pascalda Ekok Programı, Pascalda Sayının Ekok unu Bulma

Program ekok_;
uses crt;
     var
     x,y,s1,s2:Longint;
     BEGIN
     clrscr;
     write('1. sayıyı giriniz='); readln(s1);
     write('2. sayıyı giriniz='); readln(s2);
     x:=s1;
     y:=s2;
     while s1<> s2 do
     if s1>s2 then
     s2:=s2+y else
     s1:=s1+x;
     writeln('Sayıların Ekoku=', s1);
     readln;
     end.