Бірінші 10санның квадраттарының қосындысын есептеңіз:
1
S:=0; For i:=1 To 10 Do S:=S+i*I; Writeln(‘s=’ ,s);
2
S:=1; For i:=1 To 13 Do S:=S*I; WriteLn(‘s=’,s);
3
Read (n); s:=n*(n+1)/2; WriteLn(‘s=’,s);
4
Read (n); s:=sqr(n*(n+1)/2;nWriteLn(‘s=’,s);
5
S:=1; For i:=1 To 10 Do S:=S*I; WriteLn(‘s=’,s).