câu lệnh For..Do
uses crt;
var
i,N,B: integer;
A,C: real;
begin
clrscr;
write('nhap so N:=');
for i:=1 to N do
begin
A:=A+1/(i*(i+2);
B:=B+(i*2);
C:=C+1/(i*10);
end;
writeln('kep qua A la ',A);
writeln('kep qua B la ',B);
writeln('kep qua C la ',C);
readln
End.
câu lệnh while..do
uses crt;
var
i,N,B: integer;
A,C: real;
begin
clrscr;
write('nhap so N:=');
while i<=N do
begin
i:=i+1;
A:=A+1/(i*(i+2);
B:=B+(i*2);
C:=C+1/(i*10);
end;
writeln('kep qua A la ',A);
writeln('kep qua B la ',B);
writeln('kep qua C la ',C);
readln
End.
