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......?

Cau tra loi cua ban tren co sai cu phap nen to xin lam va bo sung laiTat 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 duoc4) 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.

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!