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.
Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay lẻ. (Sử dụng câu lệnh If … then … else ….)
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
viết chương trình nhập vào N.Với 0<N<10
+in ra bang cửu chương N + cho biết N là số chẵn hay lẻ ? +Kiểm tra N có phải số nguyên tố hay ko
program BangCuuChuong;
var
N, i, j: integer;
IsEven: boolean;
IsPrime: boolean;
begin
write('Nhap N (0 < N < 10): ');
readln(N);
// Kiểm tra N có phải số chẵn hay lẻ
IsEven := (N mod 2 = 0);
if IsEven then
writeln(N, ' la so chan')
else
writeln(N, ' la so le');
// Kiểm tra N có phải số nguyên tố hay không
IsPrime := true;
if (N < 2) then
IsPrime := false
else
for i := 2 to trunc(sqrt(N)) do
if (N mod i = 0) then
begin
IsPrime := false;
break;
end;
if IsPrime then
writeln(N, ' la so nguyen to')
else
writeln(N, ' khong la so nguyen to');
// In ra bảng cửu chương N
writeln('Bang cuu chuong ', N, ':');
for i := 1 to 10 do
begin
j := i * N;
writeln(N, ' x ', i, ' = ', j);
end;
readln;
end.
Mấy cái phần mình gạch // là giải thích phần code đó làm gì nha.
Program HOC24;
var i,n,d: byte;
begin
write('Nhap N: '); readln(n);
writeln('Bang cuu chuong ',n,' : ');
for i:=1 to 10 do writeln(n,' x ',i,' = ',n*i);
if n mod 2=0 then writeln(n,' la so chan ') else writeln(n,' la so le');
d:=0;
for i:=1 to n do if n mod i=0 then d:=d+1;
if d=2 then write(n,' la so nguyen to') else write(n,' khong phai la so nguyen to');
readln
end.
Câu lệnh nào dưới đây dùng để kiểm tra 1 số là số chẵn hay số lẻ?
A.If So div 2=0 So then write('so le') else write('so chan');
B. If N mod 2<>0 So then write('so le') else write('so chan');
C. If So div 2<>So then write('so le') else write('so chan');
D. If N mod 2=0 So then write('so le') else write ('so chan');
kiểm tra tính chẵn lẻ.kiểm tra số N được nhập từ bàn phím(là số nguyên dương). in ra màn hình kết quả số đã nhập là chẵn hay lẻ, ví dụ "10 là số chẵn" "9 là số lẻ".
a, em hãy mô tả các bước của thuật toán để giải quyết bài toán trên.
b, viết chương trình Pascal để thực hiện thuật toán.
các bạn giúp tớ với, ai giúp tớ cảm ơn người đó nèe
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.
viết chương trình nhập số nguyên dương n từ bàn phím . kiểm tra và thông báo ra màn hình số n vừa nhập là số chẵn hay số lẻ
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:
em hãy viết chương trình kiểm tra số nguyên tố nhập vào là số chẵn hay số lẻ trong pascal.Giúp em với em gần thi rồi ạ
uses crt;
var a:int64;
begin
clrscr;
readln(a);
if a mod 2=0 then writeln('la so chan')
else writeln('la so le');
readln;
end.
