K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

9 tháng 5 2023

n=int(input('n='))

S=0

for i in range (1,n+1):

       S+=i*(i+1)

print('Tổng S là:',S)

21 tháng 2 2022

. Cấu trúc thủ tục nhập dữ liệu từ bàn phím:

Read(<danh sách biến vào>);

Readln(<danh sách biến vào>);

Cấu trúc thủ tục in dữ liệu ra màn hình: Write(<danh sách kết quả ra>); Writeln(<danh sách kết quả ra>);

Ví dụ:Write('Nhap so a:');

Readln(a);

13 tháng 5 2023

Var i,n:integer;

Begin

Write('n = ');readln(n);

Write('Day so tu 1 den ',n,' la ');

For i:=1 to n do write(i:8);

Readln

End.

7 tháng 3 2023

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

i:=0; s:=0;

while i<n do

begin

i:=i+1;

s:=s+i*(i+1);

end;

write('S=',S);

readln

end.

7 tháng 3 2023

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

18 tháng 3 2023

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

11 tháng 4 2019

Lời giải :

program hotrotinhoc ;

var S,n,i : integer ;

begin

write('Nhap n='); readln(n);

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

write('S=',S);

readln

end.

2 tháng 3 2020

Var n,S,i:longint;

Begin

write('nhap n:'); readln(n);

S:=0;

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

writeln(S);

Readln

End.

16 tháng 3 2023

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)