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
Nhập vào số tự nhiên N. Kiểm tra xem N có phải là số đối xứng nhị phân hay không.
Mn giúp mình với ạ xin cảm ơn.
Viết chương Pascal nhập vào số nguyên N, kiểm tra xem N có chia hết cho 2 hay không?.
uses crt;
var n:longint;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln('co')
else writeln('khong');
readln;
end.
Viết chương trình nhập vào số tự nhiên N từ bàn phím. Kiểm tra số đó có chia hết cho 2 hay không?
Thuật toán
INPUT: Số tự nhiên N
OUTPUT: Kết quả kiểm tra số N: ‘là số chia hết cho 2’ hoặc ‘là số không chia hết cho 2’.
Bước 1. Nếu (N chia 2 lấy phần dư) = 0 thì in kết quả ‘là số chia hết cho 2’ ngược lại in kết quả ‘là số không chia hết cho 2’
Bước 2. Kết thúc thuật toán.
thực hiện trên pascal online ạ :((
giúp em với
#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;
}
Viết thuật toán nhập vào từ bàn phím số nguyên dương N.
a, Kiểm tra xem số đó là chẵn hay lẻ.
b. Kiểm tra xem số đó có chia hết cho 3 hay không?.
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:
Giúp mình với ạ
Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ
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.
Cho số nguyên không dấu N. Hãy kiểm tra tính chẵn lẻ của N. Trong bài toán này tính chẵn lẻ của N là số bit 1 trong biểu diễn nhị phân của N. Nghĩa là nếu trong biểu diễn nhị phân của N có chứa một số chẵn các bit thì N được coi là có tính chẵn, và ngược lại thì N có tính lẻ.Dòng đầu tiên của đầu vào chứa số nguyên T cho biết số bộ dữ liệu cần kiểm tra. Mỗi bộ dữ liệu gồm một dòng chứa số nguyên N.Ứng với mỗi bộ dữ liệu đầu vào, chương trình của bạn cần in ra một dòng chứa thông báo "odd" nếu N có tính lẻ và "even" nếu N có tính chẵn.(lập trình pascal)
Câu 58: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số lẻ hay không, in ra thông báo. Câu 61: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số chẵn hay không, in ra thông báo. Giúp mik 2 câu này với ak
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.
1. Nhập 1 số nếu số đó là số âm thì đổi nó thành số dương, các trường hợp khác thì tăng nó 1 đơn vị
2. Nhập 1 số cho biết số đó có chia vừa hết cho 3 và vừa chia hết cho 5 hay không?
3. Nhập 3 số bất kỳ kiểm tra 3 số đó có tạo thành tam giác hay không?
Nhập 1 ký tự bất kỳ kiểm tra ký tữ đó là số, chữ hoa, chữ thường hay ký đặc biệt
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.
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.
nhập vào 1 số từ bàn phím kiểm tra số đó có chia hết cho 3 và 4 hay không nêu thuật toán
#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;
}