Viết chương trình để tính tổng sau S = 1 + 2 + 3 + 4 n với số Viết chương trình để tính tổng sau S = 1 + 2 + 3 + 4 n với số nguyên được nhập từ bàn phím

2 câu trả lời

uses crt;
var S:longint; n,i:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to 3 do S:=S+i;
   S:=S+4*n;
   write('S = ',S);
   readln
end.

program tinhtong;

uses crt;

var n,i:integer;

      S:longint;

begin clrscr;

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

       S:=0;

   for i:=1 to 3 do

       S:=S+i;

       S:=S+4*n;

   write('Tong S la: ',S);

readln;

end.

Học tốt!