ddjemaii
1مشاركة
0السمعة
0موضوع منشور
8 أكتوبر 2009تاريخ الانضمام
29 سبتمبر 2017آخر زيارة
540مشاهدة للملف
- برنامج باسكال
اليك الكود program somme; var i,s,n:integer; begin write('donnez un nombre:'); read(n); s:=0; for i:=1 to n do begin s:=s+i; end; write('affichez la somme',s); end;