دخول

fouadhdfouad

السلاعليكم ورحة الله وبركاته

كيف يتم تحويل هذالرقم من 123456 الى 010203040506

لقد قمت ببرمجتها بلغة دوت نت

اما الدالفي فلم استطع لانني جديد في هذه اللغة

تقبلو تحياتي

delphi17 · 12-02-2019, 02:29 PM

الكود ليس جيد لكن يافي بالغرض

كود :
program Project1 ;

var
  a : String ;
  number : string = '123456'   ;
i : Integer ;
begin
     for i := 1 to Length(number) do
     begin
     a:=  a + '0' + copy(number ,i,1);
     end;
     WriteLn(a);
     Readln;
 end.        

fouadhdfouad · 12-02-2019, 03:57 PM

شكرا لك اخي الكريم

ربنا يبارك في عمرك ويحسن اليك

كود اشتغل جيد

تقبل تحياتي

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة