Những câu hỏi liên quan
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)
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)
09 Lê Quang HIếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 23:33

#include <bits/stdc++.h>

using namespace std;

long long i,n,dem;

int main()

{

cin>>n;

dem=0;

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

if (i%2==1 && i%5==0) dem++;

cout<<dem;

return 0;

}

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

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
7 tháng 9 2017 lúc 8:54

Bình luận (0)
Thúy Hoa
Xem chi tiết
Bùi Anh Tuấn
30 tháng 3 2021 lúc 20:01

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

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.

Bình luận (0)
Hùng Anh Nguyễn Đăng
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 1 2022 lúc 15:59

#include <bits/stdc++.h>

using namespace std;

long long a,b,t,i;

int main()

{

cin>>a>>b;

t=0;

for (i=a; i<=b; i++)

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

cout<<t;

return 0;

}

Bình luận (0)
Trí Nguyễn
Xem chi tiết
Phía sau một cô gái
7 tháng 7 2023 lúc 20:19

program bai_toan;

var

      N, i, sum: integer;

begin

      write('Nhap so N: ');

      readln(N);

      write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');

      for i := 1 to N - 1 do

            if N mod i = 0 then

                  write(i, ' ');

      writeln;

      sum := 0;

      for i := 1 to N - 1 do

      begin

            if N mod i = 0 then sum := sum + i;

      end;

      if sum = N then writeln(N, ' la so hoan hao')

      else writeln(N, ' khong phai la so hoan hao');

      writeln;

      writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');

      for i := 1 to N do

      begin

            sum := 0;

            for j := 1 to i - 1 do

            begin

                  if i mod j = 0 then sum := sum + j;

            end;

            if sum = i then writeln(i);

      end;

      readln;

end.

Bình luận (0)