Viết thuật toán s= 2+4+6+......+2n

2 câu trả lời

program CauHoi;

uses crt;

var i,n :integer; S :qword;

begin

           write('Nhap so n: '); readln(n);

For i:=1 to n do S:=S+2*i;

writeln('Ket qua la: ',S);

readln;

end.

Bước 1 : Nhập số nguyên n
Bước 2 : i ← 0; s ← 0;
Bước 3 : i ← i + 2 ; s ← s + i; 
Bước 4 : nếu i > 2n  thì đưa ra S rồi kết thúc
Bước 5 : quay lại bước 3

Câu hỏi trong lớp Xem thêm