Những câu hỏi liên quan
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

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

readln;

end.

Bình luận (0)
Nguyễn Thái Phương Thảo
Xem chi tiết
Nguyenthanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:44

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:44

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
Truy Kích 3.0
29 tháng 5 2021 lúc 9:51

Bài 2 dùng công thức n*(n+1)/2

Bình luận (0)
Tran Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 21:10

uses crt;

var n,i,s:integer;

begin

clrscr;

repeat

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

until n>0;

s:=0;

for i:=1 to n do

s:=s+i;

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

readln;

end.

Bình luận (0)
Ngoc Anh Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 2 2022 lúc 21:48

a: uses crt;

var s,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s);

readln;

end.

b: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

c: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s+1/(n+1):4:2);

readln;

end.

Bình luận (0)
Phương Linh Pham Thị
Xem chi tiết
HT.Phong (9A5)
24 tháng 3 2023 lúc 12:06

int main() 

{

int n;

long s;

s=0;

i=1;

printf("\nSo n la: ");

scanf("%d",&n);

for(int i=1; i<=n; i++)

    {

    s=s+i;

    }

printf("\nTổng %d là %ld: ", n, s);

}

Bình luận (1)
foxbi
Xem chi tiết
HT.Phong (9A5)
18 tháng 3 2023 lúc 8:11

Uses crt;

var n,i,s: integer;

begin clrscr;

readln(n);

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

writeln(s);

readln;

end.

Bình luận (0)
HoangPhat
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2022 lúc 23:33

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

if (n%2==0)

{

s=0;

for (i=1; i<=n; i++)

if (i%2==0) s=s+i;

cout<<s;

}

else 

{

s=0;

for (i=1; i<=n; i++)

if (i%2==1) s=s+i;

cout<<s;

}

return 0;

}

Bình luận (0)
HoangPhat
Xem chi tiết
Đỗ Tuệ Lâm
7 tháng 2 2022 lúc 15:11

program tongchan;

uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; write('nhap n:');readln(n);

for i:=1 to n do if i mod 2=0 then s:=s+i;

writeln('tong s la:',s);

readln

end.

Bình luận (1)
Đỗ Tuệ Lâm
7 tháng 2 2022 lúc 15:11
Bình luận (0)
Đỗ Tuệ Lâm
7 tháng 2 2022 lúc 15:13

program tong_le;

uses crt;

var s,n,i:integer;

begin

clrscr;

s:=0;

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

for i:=1 to n do

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

writeln('tong s la:',s);

readln

end.

Bình luận (0)