1. For...do
a)
program a;
uses crt;
var N,i: integer;
S: longint;
Begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do S:=S+i*(i+1);
write('S = ',S);
End.
b)
program b;
uses crt;
var N,i: integer;
S: longint;
Begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do S:=S+2*i;
write('S = ',S);
End.
c)
program c;
uses crt;
var N,i: integer;
S: longint;
Begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do S:=S+(2*i+1);
write('S = ',S);
End.
2. While...do
a)
program a;
uses crt;
var N,i: integer;
S: longint;
Begin
clrscr;
write('Nhap N: '); readln(N);
while i<=N do
begin
S:=S+i*(i+1);
i:=i+1;
end;
write('S = ',S);
End.
b)
program b;
uses crt;
var N,i: integer;
S: longint;
Begin
clrscr;
write('Nhap N: '); readln(N);
while i<=N do
begin
S:=S+2*i;
i:=i+1;
end;
write('S = ',S);
End.
c)
program c;
uses crt;
var N,i: integer;
S: longint;
Begin
clrscr;
write('Nhap N: '); readln(N);
while i<=N do
begin
S:=S+(2*i+1);
i:=i+1;
end;
write('S = ',S);
End.
