Program bai_tap ;
Uses crt ;
Var C: array [1..150] of integer ;
i,n,d : integer;
Begin
Write('nhap n=');
Readln (n);
For i:=1 to n do
Write ('nhap phan tu thu ',i,' =');
Readln (C[i]);
end;
d:=0;Writeln ('Cac so le chia het cho 3 trong day la:');
If (C[i] mod 2=1) and (C[i] mod 3=0) then BeginWrite (C[i]:5);
d:=d+ 1;end;Writeln;
Writeln('so so le chia het cho 3 trong day la:', d);
Readln
End.
program ct;
uses crt;
var d,i,n:integer;
C:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
write('nhap mang C[',i,']:=');readln(c[i]);
d:=0;
if (c[i] mod 2=1) and (c[i] mod 3=0) then
beign
writeln(c[i]:6);
d:=d+1;
writeln('so le chia het cho 3',d);
readln
end.
Công thức tính hình thoi là j ạ?
Trình bày suy nghĩ của anh chị rút ra từ phần đọc hiểu của văn bản cậu bé và cây si già
Trên mặt phẳng nằm ngang không ma sát vật 1 có khối lượng 4kg vận tốc 3m/s và vật 2 có khối lượng 8kg và vận tốc 2m/s, chuyển động ngược chiều nhau. Sau và chạm hai vật dính vào nhau, xác định vận tốc của hai vật sau va chạm
Write a short email to your teacher to submit your group homework for this week ( KHÔNG CHÉP MẠNG )
Giải giúp em với ạ mai kt 1 tiết ạ
Tả về cây hoa đào viết ngắn gọn Ko thì ko cho câu trả lời hay nhất
Từ bài sống chết mặc bay hãy liên hệ với hiện tại, so sánh thái độ của quan lại thời phong kiến đối với việc đê vỡ với đảng,chính phủ ta hiện nay đối với việc vỡ đê mong các bn giúp đỡ k chép mạng nha
vì sao phải tránh tiếng ồn lớn tiếng ồn có haị cho tai như thế nào
cây tròng khac cây dại điểm nào ?
tại sao khi giặt quần áo bằng nước xà phòng nóng thì sạch hơn khi giặt quần áo bằng xà phòng lạnh
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
