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.

10 tháng 5 2020

Input: các số 2; 6;12;....; n(n+2).

Output: Tính tổng S = 2+ 6+12+...+n(n+2)

Chương trình:

program tinhtong;

uses crt:

var S: real;

i,n:integer;

begin

clrscr;

writeln('Nhap n'); Readln(n);

S:= 0;

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

write('S= ', S);

Readln;

end.

Chúc bạn học tốt.

8 tháng 2 2023

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+(i*10+2);

write('S = ',s);

readln;

end.

Câu 2:

var i,n:integer;

s:real;

begin

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

for i:=1 to n do s:=s+1/n;

write('tong la ',s:10:2);

readln;

end.

Bài 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 372 do 

 if i mod 3=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

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

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.

9 tháng 3 2022

refer:

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=0 to n do

if i mod 2=0 then s:=s+i;

writeln('S=',s);

readln;

end.

8 tháng 3 2023

Câu a:

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

S = 0

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

     S += i

print("Tổng S =", S)

Câu b:

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

S = 0

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

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

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

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

 

9 tháng 3 2023

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

S = 0

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

     S += i

print("Tổng S =", S)

Câu b:

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

S = 0

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

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

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

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

7 tháng 2 2022

Thuật toán: B1: Nhập N;

B2: A <--- 0; i <--- 1;

B3: A <--- A + ((2*i)/(2*i+1));

B4: i <--- i + 1;

B5: Nếu i > N thì thông báo A rồi kết thúc.

B6: Quay lại bước 3;

undefined