Viết chương trình pascal nhập vào dãy số nguyên a từ bàn phím ( số phần tử của A cũng đc nhập từ bàn phím) In ra màn hình số các số chẵn

tuan

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

titanhot0935

program h247;
var a:array[1..1000] of integer;
i, n: integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] ');
readln(a[i]);
end;
for i:=1 to n do

if a[i] mod 2 = 0 then writeln('Cac so trong day chia het cho 2 la ',a[i]);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

nierso25

program ct;

var A:array[1..1000] of integer;

i,n: integer;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

writeln('Cac so chan la: ');

for i:=1 to n do

if A[i] mod 2=0 then writeln(A[i]:3);

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

It's impossible to travel to The USA without a visa ->If

A=1+1/2 +1/2 ²+1/2 ³+....+1/2 ²019 rút gọn biểu thức

vẽ giùm mình galaxy tự tạo trong khung hình bình hành nhé

Đặc tính của vật liệu dẫn điện

Cho : $\sqrt[]{x}$ $\geq$ 0 , x $\neq$ 9 giải bất pt sau : ($\sqrt[]{x}$ - 2$)^{2}$ $\leq$ 2

Viết 1 đoạn văn trình bày cảm nhận của em về văn bản "Tinh thần yêu nước của nhân dân ta" .

Khoanh hộ mk vs.

giải giúp nha hết jhsakDsizjfizjdgivz

The short dress no longer fits her well ->The dress

Lực F của gió khi thổi vuông góc vào cánh buồm tỉ lệ thuận với bình phương vận tốc v của gió, tức là F = av^2 (a là hằng số). Biết rằng khi vận tốc gió bằng 2 m/s thì lực tác động lên cánh buồm của một con thuyền bằng 120N (Niu-tơn). a) Tính hằng số a. b) Biết rằng cánh buồm chỉ có thể chịu được một áp lực tối đa là 12000N, hỏi con thuyền có thể đi được trong gió bão với vận tốc gió 90 km/h hay không?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến