Question

Sử dụng cấu trúc lặp for do viết phương trình tính S=1² +2²+3²+...+n² và S=1+3+5+...+(2n-1) với n nguyên dương được nhập vào từ bàn phím.

Giúp mik cần trong tuần nay cả tuần sau

Answer 1

a.

var S,i,n: integer;

begin

writeln ('Nhap so nguyen duong n'); readln(n);

repeat

writeln ('nhap lai'); readln(n);

until (n>=1);

S:=0;

for i:=1 to n do S:=S+ sqr(i);

writeln ('tong la ',S);

readln;

end.

b.

var S,i,n: integer;

begin

writeln ('nhap so nguyen duong n'); readln(n);

repeat

writeln ('nhap lai'); readln(n);

until (n>=1);

S:=0;

for i:= 1 to n do

if i mod 2 = 1 then S: = S+i;

writeln ('tong la ',S);

readln;

end.

(mình không thử nên cũng chưa biết chắc đúng nhưng mong là đúng :))