Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Tuấn Kiệt Phạm
Xem chi tiết
Anhthuwliz
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2021 lúc 21:44

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.

Nguyen Tu
Xem chi tiết
Trần nguyên sang
Xem chi tiết
linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 22:08

#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;

}

WinX Enchantix Phép Thuậ...
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2022 lúc 20:25

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.

Nguyên Thi
Xem chi tiết
Lê Thế
Xem chi tiết
Lê Thế
7 tháng 9 2021 lúc 19:35

Giúp tôi vơi tôi cần gấp

 

Nguyễn Hoài Đức CTVVIP
7 tháng 9 2021 lúc 19:36

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.

Nguyễn Hoài Đức CTVVIP
7 tháng 9 2021 lúc 19:36

Tk

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.

Lê Thế
Xem chi tiết
Đoàn Xuân Sơn
7 tháng 9 2021 lúc 21:54

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.