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
No Name
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:55

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

}

No Name
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:56

 

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

}

 

Nguyễn Thị Tươi
Xem chi tiết
Linh Da
Xem chi tiết
Nguyen Hung
27 tháng 4 2021 lúc 22:03

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.

Nguyễn Lê Phước Thịnh
27 tháng 4 2021 lúc 22:18

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.

nam bảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:44

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.

Dung
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:25

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

}

le hong trinh
Xem chi tiết
Duy Lương
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 2 2023 lúc 15:21

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.

Duy Lương
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 2 2023 lúc 15:21

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.