أريد برنامج يقوم بطباعة الأعداد من الأولية من 1 إلى 100
بسرعة لوسمحتوا لأنو ماعندي وقت كتير
سؤال لوسمحتوا
مغلق
هنا لايطلب برنامج ولكن المساعدة في حل اشكالية
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم
*****
var x : integer; bgin for x := 1 to 100 do writeln(inttostr(x)); end;
هل هذا هو المطلوب ؟
تم تعديل هذه المشاركة بواسطة prof_1982 في 25 أبريل 2010 في 08:31
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
كان من الاحسن اخي الكريم قراءة قوانين طرح الاسئلة و المشاركات .
والله المستعان
تم تعديل هذه المشاركة بواسطة mohfa في 25 أبريل 2010 في 09:09
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم
*****
var x : integer;
bgin
for x := 1 to 100 do
if X mod 2 = 1 then
writeln(inttostr(x));
end;
هذا الموضوع مغلق.