Những câu hỏi liên quan
Trần nguyên sang
Xem chi tiết
hoàng tuấn anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2020 lúc 13:10

uses crt;

var a:integer;

begin

clrscr;

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

if (a mod 3=0) and (a mod 5=0) then writeln(a,' dong thoi chia het cho 3 va 5')

else writeln('Khong thoa dieu kien');

readln;

end.

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
27 tháng 11 2018 lúc 11:15

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
24 tháng 2 2017 lúc 13:19

Bình luận (0)
Triển Hoàng Đình
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 8 2021 lúc 23:34

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if (a mod 3=0) or (a mod 5=0) then write('co')

else writeln('khong');

readln;

end.

Bình luận (0)
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;

}

Bình luận (0)
lam nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:14

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n<0) cout<<"la so am";

else cout<<"la so duong";

return 0;

}

Bình luận (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.

Bình luận (0)
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.

 

Bình luận (0)
Le thi huong
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 19:13

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.

Bình luận (0)
Kiều Vũ Linh
10 tháng 5 2023 lúc 19:14

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.

Bình luận (0)