nhập vào 1 số nhị phân có n chữ số kiểm tra số đó có chia hết cho 3 hay k (pascal)
số nhị phân là số chỉ có số 1 vs số 0
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 n:longint;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln('co')
else writeln('khong');
readln;
end.
#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;
}
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:
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.
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.
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.
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.
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.
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.
#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;
}
uses crt;
var n,d,kt,i,b:integer;
st:string;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
kt:=0;
for i:=1 to d do
val(st[i],a[i],b);
for i:=1 to d do
if a[i]>1 then
begin
kt:=1;
writeln('ban da nhap sai, yeu cau ban nhap lai');
end;
if kt=0 then
begin
if n mod 3=0 then writeln('thoa man')
else writeln('khong thoa man');
end;
readln;
end.