Lập trình bằng pascal khó đấy cần bạn nào đầu to help ( bt vềcấu trúc lặp trong pascal )toán khó help me......?

Pascal thì lâu rồi mình không sử dụng

s1=1+1/2+1/3+..+1/n

cái này đơn giản mà

do cú pháp mình có thể quên

Bạn nên n chạy từ 1 đến n( n số nhập của bạn)

Hông biết có phải

for

begin

n=n+1;

s=s+1/n;

end

Cái kia cũng tương tự

s2=1^2+2^2+...+n^2

for

begin

n=n+1;

s2=s2+n*n;

end

cái giá trị s1,s2 bạn nên gán bằng 0 (ngoài for)

dùng cho nhân thì gán bằng 1 là Ok rồi!

Cau tra loi cua ban tren co sai cu phap nen to xin lam va bo sung lai Tat nhjen phan mo bai deu la: program s; uses crt; Va phan than bai la: 1) Var n,i:byte; s:real begin clrscr; write('Nhap n='); readln(n); for i:= 1 to n do s:=s+1/i; writeln('s1=',s:5:1); readln; end. 2) Var x,i:byte; s:longint; begin clrscr; write('Nhap x='); readln(x); for i:= 1 to 6 do s:=s+x^i; writeln('s2=',s); readln; end. 3) Var n,i:byte; s:longint; begin clrscr; write('Nhap n='); readln(n); for i:= 1 to n do s:=s+i^2; writeln('s3=',s); readln; end. Rieng bai 4, to phai su dung them cau lenh if then moi lam duoc 4) Var i,n:byte; s:integer; begin clrscr; write('Nhap n='); readln(n); for i:= 1 to m do if i mod 2=0 then s:=s-i else s:=s+i; writeln('s4=',s); readln; end.