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.

22 tháng 12 2021

#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) t=t+i;

cout<<t;

return 0;

}

16 tháng 12 2022

#include <bits/stdc++.h>

using namespace std;

int a,b;

int main()

{

cin>>a>>b;

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

if (i%6==0) cout<<i<<" ";

}

22 tháng 12 2021

Đề thiếu rồi bạn

#include <bits/stdc++.h>

using namespace std;

int main()

{

int a,b,k;

cin>>a>>b>>k;

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

if (i%k==0) cout<<i<<" ";

return 0;

}

23 tháng 12 2021

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

23 tháng 12 2021

Bài 1 đâu ạ

 

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,i,dem,s;

int main()

{

cin>>a>>b;

dem=0;

s=0;

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

if (i%2==0) 

{

dem++;

s=s+i;

}

cout<<dem<<" "<<s;

return 0;

}

22 tháng 2 2022

Khóc huhu :((

 

#include <bits/stdc++.h>

using namespace std;

long long i,n,a[1000],dem,t;

int main()

{

cin>>n;

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

cin>>a[i];

t=0;

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

if (a[i]%15==0) 

{

cout<<a[i]<<" ";

t+=a[i];

}

cout<<endl;

cout<<"Tong cac so chia het cho 3 va 5 la: "<<t;

return 0;

}

uses crt;

var a,b,x,t,i:integer;

begin

clrscr;

readln(a,b,x);

t:=0;

for i:=a to b do 

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

writeln(t);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,dem1,dem2,t1,t2,sa,sd,vt1,vt2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do 

begin

if a[i]>0 then begin inc(dem1); t1:=t1+a[i]; end;

if a[i]<0 then begin inc(dem2); t2:=t2+a[i]; end;

end;

writeln(dem1);

writeln(dem2);

writeln(t1);

writeln(t2);

for i:=1 to n do 

  if a[i]>0 then 

begin

sd:=a[i];

vt1:=i;

break;

end;

if (dem1=0) then writeln('Khong co so duong trong day')

else writeln('So duong dau tien la: ',sd,' vi tri la: ',vt1);

for i:=1 to n do 

  if a[i]<0 then 

begin

sa:=a[i];

vt2:=i;

break;

end;

if (dem2=0) then writeln('Khong co so am trong day')

else writeln('So am dau tien la: ',sa,' vi tri la: ',vt2);

readln;

end.