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.

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 50 do 

if i mod 3=0 then 

begin

write(i:4);

inc(dem);

end;

writeln;

writeln(dem);

readln;

end.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

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

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

cout<<t;

return 0;

}

20 tháng 4 2023

program SoChiaHetCho3;

var

     i: Integer;

begin

     writeln('Cac so chia het cho 3 trong doan tu 1 den 10 la:');

     for i := 1 to 10 do

     begin

          if i mod 3 = 0 then

               write(i, ' ');

     end;

end.

#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;

}

10 tháng 11 2022

dùng lệnh for thì quá thời gian phải làm sao ?

18 tháng 3 2020

Câu 1:

program an_danh;
uses crt;
var n,i:integer;
begin
clrscr;
n:= 0;
for i:= 1 to 100 do
if i mod 3 = 0 then n:= n + 1;
write('So cac so la boi cua 3 la: ',n);
readln
end.

Câu 2:

program an_danh;
uses crt;
var n,i:integer;
begin
clrscr;
n:= 0;
for i:= -100 to 100 do
if i mod 2 = 0 then n:= n + 1;
write('Cac so chan pham vi tu -100 den 100 la: ',n);
readln
end.

Câu 3:

program an_danh;
uses crt;
var i:integer;
begin
clrscr;
for i:= 1 to 100 do
if i mod 5 = 0 then write(i,' ');
readln
end.

Bài 1:

uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 100 do
if i mod 3=0 then inc(dem);
writeln('so boi cua 3 trong pham vi tu 1 den 100 la: ',dem);
readln;
end.

Bài 2:

uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=-100 to 100 do
if i mod 2=0 then inc(dem);
writeln('so luong so chan trong pham vi tu -100 den 100 la: ',dem);
readln;
end.

Bài 3:

uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 100 do
if i mod 5=0 then inc(dem);
writeln('so boi cua 5 trong pham vi tu 1 den 100 la: ',dem);
readln;
end.

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.

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;

}

14 tháng 2 2022

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=2 to 98 do if i mod 5=0 then t:=t+i;

write('Tong cac so chia het cho 5 tu 2 den 98 la: ',t);

readln

end.