viết chương trình tính tổng sau: S=2+4+6+...+2n với n nhập vào từ bàn phím

2 câu trả lời

uses crt;
var n,i,s:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do s:=s+2*i;
   write('s la: ',s);
   readln
end.

Program FNG;
Uses crt;
Var n,s: qword;
    i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                s:=s+2*i;
        Write('S = ',s);
        Readln
End.

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