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

}

Phạm Hải Đăng
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 1 2021 lúc 13:13

uses crt;

var a:integer;

begin

clrscr;

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

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

huynh phuong
28 tháng 2 2021 lúc 22:44

var A: integer;

begin

write('Nhap vao mot so A='); readln(A);

if A>0 then write('So A la so nguyen duong');

if A<0 then write('So A la so nguyen am');

If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');

readln;

end.

 

Trần nguyên sang
Xem chi tiết
vu anh tu
Xem chi tiết
Phía sau một cô gái
21 tháng 3 2023 lúc 19:38

n = int(input("Nhập vào một số nguyên dương: "))

if n < 0:

     print(n, "là số âm")

elif n > 0:

     print(n, "là số dương")

else:

     print(n, "là số 0")

Hinn
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:59

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

}

Nguyễn Hồ Anh Thư
Xem chi tiết
Nguyễn Hồ Anh Thư
20 tháng 4 2022 lúc 20:17

SOS:)

Nguyen Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 13:37

Câu 1:

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

Câu 2: 

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

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

end;

for i:=1 to 10 do 

 write(a[i]:4);

readln;

end.

Câu 3: 

uses crt;

var a:array[1..15]of integer;

i,n,t:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=15);

for i:=1 to n do 

begin

repeat

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

until a[i]<=100;

end;

writeln('Mang da nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t);

writeln('Cac so chan o vi tri le trong day la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);

readln;

end.

Nguyễn Thị Linh
Xem chi tiết
Minh Lệ
6 tháng 1 2022 lúc 21:03

Program HOC24;

var i,n: byte;

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

t: longint;

begin

write('Nhap N: '); readln(N);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.