Program NN;Uses crt;Var A: array[1..100] of longint; n,i,d: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Read(A[i]); If (A[i] mod 2 <> 0) and (A[i] mod 3 = 0) then inc(d); End; Write(d); ReadlnEnd.
uses crt;
var i, n, d : integer;
A : array [1 .. 100] of integer;
begin
clrscr;
d := 0;
write('Nhap so n = '); readln(n);
write('Nhap mang ', n ,' so : ');
for i := 1 to n do begin read(A[i]);
if (A[i] mod 2 <> 0) and (A[i] mod 3 = 0)
then d := d + 1; end;
write('Co ', d ,' phan tu le chia het cho 3');
readln
end.
mn lm hộ ạ.......e sắp ik hk rùi :((
p eyg please need for the mealt ne, cooks often use WLEG the sentences, using the correct form of the words in prackets.. I will need a uimalicpmder to colour dishes. 1. pan to make some pancakes. (fry) Today, most people use clectric & to cook rice. (cook) 1 Remember to the oil before you fry the fish. (hot) My children could not enjoy their meal yesterday because of th curry. (spice)
Làm hộ mk và với.Nhanh và đúng trước 1h được khum🥺
Hế lô é ry bo đi ( Hello EveryBody) Ai vẽ cho mk một cái ảnh để làm avatar ik ( Có màu ) Ngầu ngầu chúc Tớ cảm ơn + Vote 5 sao + Cho bn CTLHN Ok thank nhìu(Part3)
mn lm hộ ......e sắp ik hk rùi ạ :((
Hế lô é ry bo đi ( Hello EveryBody) Ai vẽ cho mk một cái ảnh để làm avatar ik ( Có màu ) Ngầu ngầu chúc Tớ cảm ơn + Vote 5 sao + Cho bn CTLHN Ok thank nhìu(part2)
i will need a ____ pan to make some pancake ( fry)
mình cần gấp văn bản thông tin ngày trái đất năm 2000 đồng văn bản nào của lớp 6 mà em đã học
Thiện được nghỉ học, ở nhà rủ Vũ giải các bài toán xếp hình bằng que diêm. Sau vài câu khá dễ, Thiện chỉ một câu mới cho Vũ: - Em xem, câu này cũng thú vị đấy chứ. Vũ ghé mắt vào nhìn rồi đọc to: - Hãy dùng 3 que diêm để xếp thành một số lớn hơn 3 nhưng nhỏ hơn 4. Vũ loay hoay một lúc vẫn chưa tìm ra, đành nhờ anh giải giúp. Vậy Thiện đã làm thế nào nhỉ?
Làm hộ mk từng này.Lm trước 1 giờ nha.
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
