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.

6 tháng 5 2023

program CheckOddNumber;

function IsOddNumber(n: integer): boolean;
begin
  if n mod 2 = 1 then
    IsOddNumber := true
  else
    IsOddNumber := false;
end;

var
  n: integer;
begin
  writeln('Nhap mot so nguyen duong: ');
  readln(n);

  if IsOddNumber(n) then
    writeln(n, ' la so le.')
  else
    writeln(n, ' ko la so le.');

  readln;
end.

6 tháng 5 2023

Mọi người ai làm được giúp mình với ạ mình đang cần gấp

31 tháng 10 2021

python.

N = input(nhap so nguyen N)

if n%2 == 0:

      print('N la so chan')

else:

      print('N la so le')

27 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2!=0) cout<<"La so le";

else cout<<"Khong la so le";

return 0;

}

29 tháng 12 2020

uses crt;

var i,n,s: integer;

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

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

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

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

freopen("checknto.inp","r",stdin);

freopen("checknto.out","w",stdout);

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"YES";

else cout<<"NO";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

dem=0;

for (i=1; i<=n; i++)

if ((a[i]>0) and (i%2==1))

{

t+=a[i];

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

uses crt;

var a,b:array[1..100]of real;

i,n,dem:integer;

max:real;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i]>0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

if dem=0 then writeln('1')

else begin

max:=b[1];

for i:=1 to dem do

if max<b[i] then max:=b[i];

writeln(max:4:2);

end;

readln;

end.

17 tháng 2 2021

Hãy tìm giá trị dương nhỏ nhất trong mảng 1 chiều các số thực nếu mảng không có giá trị dương thì 

 
20 tháng 12 2020

Sửa đề: Kiểm tra N là số chẵn hay số lẻ

uses crt;

var n:longint;

begin

clrscr;

repeat

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

until n>0;

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln;

end.

6 tháng 1 2021

Program HOC24;

var x,a,b: integer;

y: longint;

begiin

write('Nhap a;x;b : '); readln(a,x,b);

y:=a*x+b;

if y mod 2=0 then write('y la so le ') else write('y la so chan');

readln

end.