Viết chương trình nhập vào một số nguyên từ bàn phím và in ra màn hình số đã nhập là số chẵn hay số lẻ
K
Khách
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.
Những câu hỏi liên quan
25 tháng 12 2021
uses crt;
var n:longint;
begin
clrscr;
readln(n);
if n mod 2=0 then write('la so chan')
else write('la so le');
readln;
end.
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
31 tháng 12 2022
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n>0 then writeln(n,' la so duong')
else writeln('ko la so duong');
if (n mod 2=1) and (n mod 3=0) then writeln('n la so le chia het cho 3')
else writeln('n ko la so le chia het cho 3');
readln;
end.
7 tháng 9 2021
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
Write('Cac so nguyen to co trong mang la: ');
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write(A[i],'; ');
end;
end.
7 tháng 9 2021
program so_le;
uses crt;
var
n,i,d:integer;
a:Array[1..32000] of integer;
begin
clrscr;
write('nhap n: ');
readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,']: ');
readln(a[i]);
end;
d:=0;
for i:= 1 to n do
if a[i] mod 2 <> 0 then d:=d+1;
write('so luong so nguyen la so le la: ',d);
readln;
end.
