Uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n=');

readln(n);

s:=0;

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

write('tong vua tinh la:',s:3);

readln;

end.

program tinhtong;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n=');

readln(n);

while (n>100) do

begin

write('nhap lai n<100:');

readln(n);

end;

s:=0;

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

write('tong vua tinh la:',s:3);

readln;

end.

Người mới vô có gì sai sót mong bỏ qua :))

program tinhtong;

uses crt;

var n,i:integer; s:real;

begin

clrscr;

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

s:=0;

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

write('tong vua tinh la:',s:2:3);

readln;

end.

người mới vô có gì sai sót mong bỏ qua :)).

giờ có được tham gia nữa ko ạ :))

<3

đã báo cáo