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 m,n,dem,i:integer;

begin

clrscr;

write('m='); readln(m);

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

if m<n then

begin

dem:=0;

for i:=m to n do

if i mod 5=0 then inc(dem);

writeln('co ',dem,' so chia het cho 5 trong pham vi tu ',m,' toi ',n);

end

else writeln('vui long nhap lai');

readln;

end.

18 tháng 12 2021

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

}

#include <bits/stdc++.h>

using namespace std;

long long m,n,i,dem;

int main()

{

cin>>m>>n;

dem=0;

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

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

cout<<dem;

return 0;

}

19 tháng 12 2021

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

cout<<t;

return 0;

}

21 tháng 10 2021

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

cout<<t;

return 0;

}

25 tháng 2 2022

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

25 tháng 2 2022

Hãy viết chương trình Pascal thực hiện các công việc sau (đặt tên program tên mình)

25 tháng 2 2022

tick cho e dc ko

14 tháng 12 2022

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

14 tháng 12 2022

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

 

 

 

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

}