تبلیغات
برنامه نویسی با پاسکال - مغلوب عدد

ارائه سورس کد ها و پروژه های پاسکال تحت ویندوز!
صرفا جهت آموزش ، نه کپی برداری برای پروژه های دانشگاهی!

لطفا سورس کد های این وبلاگ را برای پرژه های دانشگاهی تون استفاده نکید ، واقعا هدف وبلاگ این نیست.
تمامی مسولیت کپی کردن و ارائه به استاد بر عهده شخص شماست نه نویسنده.

حسین

جستجو

 

مغلوب عدد

شنبه 9 آذر 1387   02:24 ب.ظ


نوع مطلب : سورس کدهای پاسکال ،

uses wincrt;

var

n:integer;

begin

readln(n);

while n>0 do

begin

write(n mod 10);

n:=n div 10

end;

end.


نوشته شده توسط : حسین