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

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

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

حسین

جستجو

 

حذف صفر عدد

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


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

uses wincrt;

var

n,r,m,p:integer;

begin

p:=1;

readln(n);

m:=0;

while n>0 do

begin

r:=n mod 10;

n:=n div 10;

if r>0 then

begin

p:=p*10;

m:=m+p*r;

end;

end;

write(m div 10);

end.


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