Những câu hỏi liên quan
Vy Cầm Chip
Xem chi tiết
Vy Cầm Chip
25 tháng 2 2022 lúc 9:50

viết ghép giúp mình ạ

Bình luận (0)
ILoveMath
25 tháng 2 2022 lúc 9:59

Program Vy Cầm Chip

Uses Crt;

Var S, i, n: integer;

Begin;

Read (n);

S:=0

For i:=1 to n do S:=S+i

Write (S);

Readln;

End.

Bình luận (0)
Nguyễn Lê Phước Thịnh
25 tháng 2 2022 lúc 13:25

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

cout<<"Cac so chia het cho 5 va nho hon n la: ";

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

if (i%5==0) cout<<i<<endl;

t=0;

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

cout<<"Tong cua day so tu 1 den n la: "<<t;

return 0;

}

Bình luận (0)
Lan Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 1 2022 lúc 13:00

#include <bits/stdc++.h>

using namespace std;

long long i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (1)
Ẩn danh
8 tháng 2 2023 lúc 10:14

#include <iostream>

using namespace std;

int main()
{int n;
cout<<"Nhập giới hạn n :";
cin>>n;
for(int i=1;i<=n;i++)
{if(n%3==0)
{cout<<i<<" ";}
} return 0;
}

Bình luận (0)
‎‎‎            ‎
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:41

#include <bits/stdc++.h>

using namespace std;

long long m,n,i,t;

int main()

{

cin>>m>>n;

t=0;

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

if (i%15==0) t=t+i;

cout<<t;

return 0;

}

Bình luận (0)
Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 22:52

 

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%3==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
10 tháng 10 2018 lúc 17:44

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 3 = 0 then Tong:=Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Bình luận (0)
Tiến Đạt Huỳnh
Xem chi tiết
Đặng Phương Linh
23 tháng 3 2023 lúc 10:58

program tinh_tong;

uses crt;

var i,N:byte;

     S:integer;

begin

        writeln('Nhap so N='); readln(N);

       i:=1;  S:=0;

        while i<=N do

            begin

               if (i mod 3=0) and (i mod 2=1) then S:=S+i;

               i:=i+1;

            end;

        writeln('Tong S=',S);

        readln

end.

 

 

 

nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha

 

Bình luận (1)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
1 tháng 4 2019 lúc 2:31

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
2 tháng 8 2017 lúc 10:22

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Bình luận (0)
Lê Quang Hiếu
Xem chi tiết
Nguyễn Mai Bảo
25 tháng 2 2022 lúc 7:11

tick cho e dc ko

Bình luận (0)