- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình nhập vào một số thực, kiểm tra số đó là số chẵn hay số lẻ
Các câu hỏi tương tự
1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không
2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵnchia hết cho 5 hay không
Em chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ
Top 1 ✅ Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 được cập nhật mới nhất lúc 2022-03-13 03:12:01 cùng với các chủ đề liên quan khác
tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]
Hỏi:
tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]
Đáp:
lanminhngoc:program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write[‘Nhap n = ‘]; readln[n];
for i:=1 to n do
begin
write[‘A[‘, i,’] = ‘]; readln[A[i]];
end;
write[‘So chan dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write[A[i]];
break;
end;
writeln[];
write[‘So le dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write[A[i]];
break;
end;
readln
end.
lanminhngoc:program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write[‘Nhap n = ‘]; readln[n];
for i:=1 to n do
begin
write[‘A[‘, i,’] = ‘]; readln[A[i]];
end;
write[‘So chan dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write[A[i]];
break;
end;
writeln[];
write[‘So le dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write[A[i]];
break;
end;
readln
end.
lanminhngoc:program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write[‘Nhap n = ‘]; readln[n];
for i:=1 to n do
begin
write[‘A[‘, i,’] = ‘]; readln[A[i]];
end;
write[‘So chan dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write[A[i]];
break;
end;
writeln[];
write[‘So le dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write[A[i]];
break;
end;
readln
end.
tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]
Xem thêm : ...
Vừa rồi, hay-nè.vn đã gửi tới các bạn chi tiết về chủ đề Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng hay-nè.vn phát triển thêm nhiều bài viết hay về Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 bạn nhé.
08-10-2012 16:45 #1
Viết chương trình nhập vào một dãy số nguyên khác 0[nhập số 0 để kết thúc dãy số]. Đếm xem dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ.
23-10-2012 20:26 #2
chương trình đơn giản mà bạn ! var c,l,i,n,a : integer; begin write['Nhap so phan tu cua day: ']; readln[n]; c:=0; l:=0; for i:=1 to n do begin write['Nhap phan tu thu ',i,': ']; readln[a]; if a mod 2 = 0 then c:=c+1 else l:=l+1; end; write['Day co ',c,' so chan va ',l,' so le']; readln;end.
Top 1 ✅ Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 được cập nhật mới nhất lúc 2022-03-13 03:12:01 cùng với các chủ đề liên quan khác
tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]
Hỏi:
tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]
Đáp:
lanminhngoc:program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write[‘Nhap n = ‘]; readln[n];
for i:=1 to n do
begin
write[‘A[‘, i,’] = ‘]; readln[A[i]];
end;
write[‘So chan dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write[A[i]];
break;
end;
writeln[];
write[‘So le dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write[A[i]];
break;
end;
readln
end.
lanminhngoc:program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write[‘Nhap n = ‘]; readln[n];
for i:=1 to n do
begin
write[‘A[‘, i,’] = ‘]; readln[A[i]];
end;
write[‘So chan dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write[A[i]];
break;
end;
writeln[];
write[‘So le dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write[A[i]];
break;
end;
readln
end.
lanminhngoc:program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write[‘Nhap n = ‘]; readln[n];
for i:=1 to n do
begin
write[‘A[‘, i,’] = ‘]; readln[A[i]];
end;
write[‘So chan dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write[A[i]];
break;
end;
writeln[];
write[‘So le dau tien trong mang la: ‘];
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write[A[i]];
break;
end;
readln
end.
tìm số chẵn đầu tiên ѵà số lẻ đầu tiên trong mảng pascal[giúp mk với ạ]
Xem thêm : ...
Vừa rồi, seonhé.vn đã gửi tới các bạn chi tiết về chủ đề Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng seonhé.vn phát triển thêm nhiều bài viết hay về Tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal[giúp mk với ạ] nam 2022 bạn nhé.