اقتباس:
المشاركة الأصلية كتبت بواسطة ghafour madrid
شكرا اخي على اعطائي الحل لكني اريده مفصلا في برنامج باسكال لاني لا افهم قليلا الباسكال
ارجو ان تعطوني الحل في برنامج باسكال مفصلا
|
كود:
program ex;
uses wincrt;
var i,n,s:integer;
begin
s:=0;
writeln('Entrez un nombre');
read(n);
for i:=1to n do
s:=s+sqr(i);
writeln('La somme des nombre carree entre 1 et ',n,'=');
writeln(s);
end.
حاول ان تفهمه بنفسك اذا لم تفهمه نحن هنا للخدمة
شكرا لك