Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trương Đức Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2022 lúc 13:22

Câu 1: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

  if i mod 4=0 then t:=t+i;

writeln(t);

readln;

end.

Câu 2: 

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 20 do 

  if i mod 3=0 then dem:=dem+1;

writeln(dem);

readln;

end.

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

 

Trương Đức Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2022 lúc 22:28

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

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

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

cout<<t;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

int i,dem;

int main()

{

dem=0;

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

if ((i%2==1) and (i%3==0)) dem++;

cout<<dem;

return 0;

}

Bảo Văn
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2021 lúc 21:51

#include <bits/stdc++.h>

using namespace std;

long long i,m,t;

int main()

{

cin>>m;

t=0;

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

if ((i%2!=0) and (i%7==0)) t=t+i;

cout<<t;

return 0;

}

Phương Thảo
Xem chi tiết
Lưu tấn phát
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2023 lúc 15:21

Chọn D

Minh Lệ
25 tháng 2 2023 lúc 22:25

Đề không có đáp án đúng, bạn kiểm tra lại đề nhé

HuyNoPro
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2021 lúc 20:44

Chọn B nhé bạn

🍉 Ngọc Khánh 🍉
19 tháng 2 2021 lúc 19:30

B nha

๖ۣۜD๖ۣۜU๖ۣۜC๖ۣۜK
Xem chi tiết
Bùi Anh Tuấn
14 tháng 4 2021 lúc 19:56

Nguyễn Lê Phước Thịnh
14 tháng 4 2021 lúc 20:12

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 30 do 

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

writeln(t);

readln;

end.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
7 tháng 4 2019 lúc 15:31

Var f1, f2: text;

  Tong, m, n, i: integer;

Begin

  assign(f1, ‘DULIEU.TXT’);

  reset(f1);

  assign(f2, ‘KETQUA’);

  rewrite(f2);

  Tong;= 0;

  read(f1, m, n);

  for i:= m to n do

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

  write(f2, Tong);

  close(f1);

  close(f2);

End.