Câu 36: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số lẻ hay không, in ra thông báo.
Câu 37. Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số chẵn, in tổng đó.
Câu 39: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số chẵn hay không, in ra thông báo.
Câu 40 . Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số lẻ, in tổng đó.
người mới nên ko có nhiều điểm nhung mong vẫn đc chỉ cho
Quảng cáo
2 câu trả lời 229
36.
if n % 2 == 0 :
print(n," là số chẵn")
else :
print(n," là số lẻ")
bài 36 với 39 mình gộp chung nhan
uses crt;
var n:longint;
begin
clrscr;
write('nhap N');
readln(n);
if n mod 2 = 0 then
write('so chan')
else
write('so le');
readln;
end.
bài 37
var a:array[1..100] of longint;
i,t:longint;
begin
clrscr;
write('nhap n:');
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then
t:=t+a[i];
write(t);
readln;
end.
bài 40 nó giống bài 37 nhưng bạn sửa chỗ a[i] mod 2 = 0 thành a[i] mod 2 <>0 nhan
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44794
-
Hỏi từ APP VIETJACK26450
-
Bánh Kemᰔᩚ
450 điểm
-
Astraea
235 điểm
-
Yen Nhi
205 điểm
-
.
125 điểm
-
Trịnh Kim Chi 90 điểm
-
Hanuel
60 điểm
-
જ⁀➴ღ ɲɦư亗♡
55 điểm
-
红玫瑰✿
50 điểm
-
quynh nhu lê
40 điểm
-
Trí Phạm 35 điểm
-
Nguyễn Thủy 30 điểm
-
an dc kh?
30 điểm
-
phạm văn hiếu phạm 30 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7559
-
3 năm trước7185
-
3 năm trước6181
-
3 năm trước5937
-
3 năm trước5985
