program baitap;
uses crt;
type Mang1C = array [ 1 .. 10000 ] of Longint;
var i, n : Longint;
a : Mang1C;
function Tong : Integer;
begin
Tong := 1;
For i := 1 to n Do
if ( a[ i ] mod 2 = 0 ) then
Tong := Tong * a[ i ];
end;
clrscr;
readln( n );
for i := 1 to n do
readln( a[ i ] );
write( Tong );
readln;
end. // Xong
program bai_giai;uses crt;var a:array[1..10000] of integer; n,i,tich:longint;begin clrscr; readln(n); tich:=1; for i:=1 to n do begin read(a[i]); if a[i] mod 2=0 then tich:=tich*a[i]; end; write(tich); readln;end.
uyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyuyhk
Giúp mình 3 bài này với. Cảm ơn các bạn rất nhiều.
Giúp em phần dấu hỏi chấm ở câu 2 Em cảm ơn
Hellp........( làm bài gì cũng đc miễn là đúng )
Giúp mk vs ạ Vote 5sao cho ạ Điểm hơi ít ạ Thông cảm nha
Phân tích ý nghĩa cua việc học tập môn học tư tưởng hô chi minh
hực hiện phép tính: a, (7.$3^{5}$ – $3^{4}$ + $3^{6}$ ) : $3^{4}$ b, (16³ – 64²) : 8 ³
giúp mình với bài 1: Mẹ làm dc 20 chiếc bánh mẹ cho Nam 1/10 số bánh đó,cho Minh3/10 số bánh đó . Hỏi mẹ còn bao nhieu chiếc bánh? bài 2: các phân số nào sau đây có thể viết thành phân số thập phân(viết đ đúng, s sai) a, 1/4 b) 7/3 c, 79/17 d, 21/26
Viết 1 đoạn văn nửa trang giấy thi ghi lại suy nghĩ về vai trò của nhà trường trong cuộc đời mỗi con người Giúp mk vs mk đang cần gấp
GIÚP MIK CÂU 6 VS CÂU 7 THOI , ĐỪNG BƠ TUI NHA
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
