Đoạn chương trình 1:

j=7

k=10

Đoạn chương trình 2:

j=7

k=28

USES crt;

VAR s,n,i:integer;

BEGIN

clrscr;

write('Nhap n:');readln(n);

s:=0;

for i:=1 to n do

s:=s+sqr(i);

writeln('Ke qua cua s la:',sqrt(s));

readln;

END.

progarm Tinh_Tong;

uses crt;

var n,i:integer;
S:real;
begin;

clrscr;

writeln('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.

program bai1;

var t,i,n:longint;

begin

{repeat

write('N= ');

readln(n);

unntil n>0}sử dụng repeat until cũng đc

t:=1;i:=2;

while i<=n do

begin

t:=t+1/i;

i:=i+1;

end;

write('T= ',t);

readln

end.

1 : có trong sgk

3:

a) b1: T←0;

B2: 1 → n ;

B3 : T:=T+1/(i*i) ;

B4: Kết thúc

var a:array[1..32000] of integer;

i,n,j,tam:integer;

begin

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then

begin

tam:=a[i]; a[i]:=a[j]; a[j]:=tam;

end;

writeln('ket qua sap xep la:');

for i:=1 to n do write(A[i]:5);

readln

end.

Var i , n : integer;

S: real;

Begin

write (' n ='); read (n);

S:= 0

For i:= 1 to n do S:= S+ 1/i;

Write (S);

Readln;

End.

program bai1;

var s,n,i:longint;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

write('s= ',s);

readln

end.

Var i , n : Integer;

S : real;

Begin

write (' n = ') ; read (n);

S:=0

For i:=1 to n do S:= S + 1/i;

Writeln ( S );

Readln;

End.

program bai1;

var i,n,s:longint;

begin

write('N= ');

readln(n);

s:=1;

for i:=2 to n do s:=s+1/i;

write('s= ',s);

readln

end.

là 1,3,5,7,9

bjih yunjkbhmn m