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
TTTheGodd
Xem chi tiết
Nguyễn Thị Yến Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 21:58

uses crt;

var n:longint;

begin

clrscr;

readln(n);

if n mod 2=0 then writeln('co')

else writeln('khong');

readln;

end.

Hân Chướng
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2021 lúc 8:43

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"YES";

else cout<<"NO";

return 0;

}

Yen Phuong Duong
Xem chi tiết
Nguyên Khôi
19 tháng 10 2021 lúc 14:23

Hỏi đáp Tin học

Nguyên Khôi
19 tháng 10 2021 lúc 14:24

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

 

Hỏi đáp Tin học

 

 

 

 

Thế Long
Xem chi tiết
Luân Đào
1 tháng 1 2021 lúc 15:59

var n,i,k,d: integer;

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

begin

write('Nhap so N: '); readln(n);

for i:=1 to n do

begin

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

end;

write('Nhap so k: '); readln(k);

d:=0;

for i:=1 to n do

if a[i] mod k = 0 then d:=d+1;

writeln('Co ',d,' so chia het cho ',k,' trong day');

if d mod 2 = 0 then writeln('Chan') else writeln('Le');

end.

Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 9:20

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=52);

for i:=1 to n do 

  begin

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

end;

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

dem:=0;

for i:=1 to n do  

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

writeln('Trong day co ',dem,' so chia het cho ',k);

if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')

else writeln('So luong so chia het cho ',k,' la so le');

readln;

end.

ngoc tran
Xem chi tiết
Le thi huong
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 19:13

Câu 58:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 <> 0 then write(n,' la so le')

Else write(n,' khong la so le');

Readln

End.

Kiều Vũ Linh
10 tháng 5 2023 lúc 19:14

Câu 61:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 = 0 then write(n,' la so chan')

Else write(n,' khong la so chan');

Readln

End.

Messi 6 tuổi Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 9 2021 lúc 14:47

Bài 2: 

uses crt;

var n:integer;

begin

clrscr;

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

if n mod 15=0 then writeln(n,' vua chia het cho 3 vua chia het cho 5')

else writeln(n,' khong thoa man');

readln;

end.

Nguyễn Lê Phước Thịnh
9 tháng 9 2021 lúc 14:46

Bài 1: 

uses crt;

var n:integer;

begin

clrscr;

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

if n<0 then writeln(-n)

else writeln(n+1);

readln;

end.

Nguyễn Lê Phước Thịnh
10 tháng 9 2021 lúc 13:17

Bài 3: 

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

khánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 12 2021 lúc 12:23

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%12==0) cout<<"YES";

else cout<<"NO";

return 0;

}