Bài 1:

Program baitap;

Uses crt;

Var i,n:integer; S: Longint;

Begin

Clrscr;

S:=0;

Readln(n);

For i:=10 to n do S:=S+sqr(i);

Writeln(S);

Readln

End.

Bài 2:

Program baitap;

Uses crt;

Var i,n:integer; T: Longint;

Begin

Clrscr;

T:=1;

Readln(n);

For i:=10 to n do T:=T*sqr(i);

Writeln(T);

Readln

End.

Bài 3:

Program baitap;

Uses crt;

Var x,y,a,b,c,m,n:integer;
Begin
Writeln(‘Lan luot nhap cac so a b c’);
Read(a,b,c);
Writeln(‘Bat dau tu so?’);
Read(m);
Writeln(‘Den?’);
Read(n);
Writeln(‘ x y’);For x:=m to n do Writeln(y:10,a*x*x*x+b*x+c:10);
Readln
End.

Bài 1: 

Bạn tham khảo code.

uses crt;
var n, i:integer;
tong: Longint;
begin
clrscr;
tong:=0;
writeln('Nhap gia tri cua n:');
readln(n);
if i<=10 then writeln('Gia tri cua n nho hon hoac bang 10. Yeu cau nhap lai.');
For i:=10 to n do tong:=tong+ i;
Writeln('Ket qua', tong);
readln;
End.

Bài 2: 

Bạn tham khảo code.

uses crt;
var n, i:integer;
tong: Longint;
begin
clrscr;
tong:=0;
writeln('Nhap gia tri cua n:');
readln(n);
if i<=10 then writeln('Gia tri cua n nho hon hoac bang 10. Yeu cau nhap lai.');
For i:=10 to n do tong:=tong+ (i*i);
Writeln('Ket qua:', tong);
readln;
End.

Bài 3:

Bạn tham khảo code:

Var x,y,a,b,c,m,n:integer;

Begin

Writeln(‘Lan luot nhap cac so a b c’);

Read(a,b,c);

Writeln(‘Bat dau tu so?’);

Read(m);

Writeln(‘Den?’);

Read(n);

Writeln(‘ x y’);

For x:=m to n do Writeln(y:10,a*x*x*x+b*x+c:10);

Readln;

End.