uses crt;
var n:longint;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln('co')
else writeln('khong');
readln;
end.
Đúng 2
Bình luận (1)
Ôn tập cuối năm
Các câu hỏi tương tự
Viết chương trình nhập vào một số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không?
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 50 hay không, thông báo ra màn hình.
Có ba học sinh, mỗi bạn nghĩ trong đầu một số dương. Hãy viết chương trình kiểm tra xem ba số đó có phải là ba cạnh của một tam giác cân hay không? (Với ba số được nhập từ bàn phím)
Mô tả thuật toán và viết chương trình nhập vào 2 số nguyên m và n từ bàn phím in ra kết quả m chia hết cho n và m không chia hết cho n
câu này làm thế nào mn ơi
giúp em với
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
Viết chương trình nhập một dãy gồm N số nguyên A1, A2, ...,AN. Tinh và đưa ra màn hình số lượng các phần tử ở vị trí lẻ chia hết cho 9 có trong dãyCâu 2: (2.0 điểm) Viết chương trình nhập một số nguyên N từ bàn phím. Tinh và đưa ra màn hình tổng các số chẵn trong đoạn từ 1 đến N.Câu 3: (1.0 điểm) Viết chương trình nhập một dãy gồm N số nguyên dương B1, B2, ..., BN. Nhập số nguyên X. Đưa ra màn hình vị trí các phần tử chia hết cho X và lớn hơn phần tử nhỏ nhất có trong dãy.giúp em với ạ
Đọc tiếp
Viết chương trình nhập một dãy gồm N số nguyên A1, A2, ...,AN. Tinh và đưa ra màn hình số lượng các phần tử ở vị trí lẻ chia hết cho 9 có trong dãy
Câu 2: (2.0 điểm) Viết chương trình nhập một số nguyên N từ bàn phím. Tinh và đưa ra màn hình tổng các số chẵn trong đoạn từ 1 đến N.
Câu 3: (1.0 điểm) Viết chương trình nhập một dãy gồm N số nguyên dương B1, B2, ..., BN. Nhập số nguyên X. Đưa ra màn hình vị trí các phần tử chia hết cho X và lớn hơn phần tử nhỏ nhất có trong dãy.
giúp em với ạ
Viết chương trình nhập vào một dãy số tính tổng các số không chia hết cho 5 có trong dãy vừa nhập
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal a. dfrac{15}{2+3} - dfrac{8}{x^3} +y b. dfrac{left(10+xright)^2}{3+y}- dfrac{18}{5+y}Câu 3. Bạn Tuấn viết chương trình như sau:1. program Tinh toan2 uses crt;3. var4. x, y : integer;5. tb real;6. thongbao : integer;7. const a : 2;8. begin9. clrscr;10. thongbao : ‘Trun...
Đọc tiếp
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal
a. \(\dfrac{15}{2+3}\) - \(\dfrac{8}{x^3}\) +y b. \(\dfrac{\left(10+x\right)^2}{3+y}\)- \(\dfrac{18}{5+y}\)
Câu 3. Bạn Tuấn viết chương trình như sau:
1. program Tinh toan
2 uses crt;
3. var
4. x, y : integer;
5. tb = real;
6. thongbao : integer;
7. const a := 2;
8. begin
9. clrscr;
10. thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
11. write(‘Nhap gai tri cho x = ‘); readln(x);
12. write(‘Nhap gia tri cho y = ‘); readln(y);
13. tb = (x+y)/a;
14.writeln(thongbao, tb:2:1);
15. readln;
16. end.
a) Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng
b. ) Hãy phân biệt tên biến, tên hằng trong chương trình trên
HELD ME !!!!!!!!!!