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.

21 tháng 11 2019

uses crt;

var m,n,t,t1,i:integer;

begin

clrscr;

repeat

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

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

if m>=n then writeln('ban da nhap sai,yeu cau ban nhap lai');

until m<n;

t:=0;

t1:=0;

for i:=m to n do

begin

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

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

end;

writeln('tong cac so chia het cho 3 trong day so tu ',m,' toi ',n,' la: ',t);

writeln('tong cac so chia het cho 5 trong day so tu ',m,' toi ',n,' la: ',t1);

readln;

end.

22 tháng 11 2019

*Đề không yêu cầu nhập lại nên bạn không cần sử dụng repeat..until .

*Đề yêu cầu tính tổng các số chia hết cho 3 hoặc 5 nên bạn phải tính chung 1 tổng : for i:=m to n do if (i mod 3=0) or (i mod 5=0) then t:=t+i;

#include <bits/stdc++.h>

using namespace std;

int main()

{

int m,n;

cin>>m>>n;

int k=m*n;

for (int i=1; i<=k; i++)

cout<<i<<" ";

return 0;

}

 

#include <bits/stdc++.h>

using namespace std;

int main()

{

int m,n;

cin>>m>>n;

int k=m*n;

for (int i=1; i<=k; i++)

cout<<i<<" ";

return 0;

}

 

27 tháng 4 2021

Program Tin_hoc;

Uses crt; 

Var i,n,dem:integer;

      a:array[1..100000] of integer;

Begin

clrscr;

Write('Nhap 1 so nguyen duong n: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu:');

For i:= 1 to n do 

Begin

Write('A[',i,'] = ');

readln(a[i]);

If a[i] mod 2 = 0 then inc(dem);

End;

Writeln('Day vua nhap la:');

For i:= 1 to n do write(a[i],'  ');writeln;

Writeln('Day so vua nhap co ',dem,' so chan');

readln;

End.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

 write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So so chan la: ',dem);

readln;

end.

uses crt;

var n,m,i,dem,t,t1,d1:integer;

//chuongtrinhcon

function ktnt(var n:integer):boolean;

var i:integer;

kt:boolean;

begin

kt:=true;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=false;

if (kt=true) then ktnt:=true

else ktnt:=false;

end;

//chuongtrinhchinh

begin

clrscr;

readln(n,m);

if (ktnt(n)=true) then writeln(n,' la so nguyen to')

else writeln(n,' ko la so nguyen to');

dem:=0;

t:=0;

for i:=2 to n do 

  if (ktnt(i)=true) then

begin

write(i:4);

t:=t+i;

dem:=dem+1;

end;

writeln;

writeln(t,' ',dem);

t1:=0;

d1:=0;

for i:=n to m do 

  if ktnt(i)=true then

begin

write(i:4);

t1:=t1+i;

inc(d1);

end;

writeln;

writeln(t1,' ',d1);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>a>>b;

cout<<ucln(a,b);

return 0;

}

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(m,n);

s:=0;

for i:=m to n do

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

writeln(s);

readln;

end.

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(m,n);

s:=0;

for i:=m to n do

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

writeln(s);

readln;

end.