var a:array[1..100] of integer;
i, d, n: byte;
Begin
Write('n = '); readln(n); d:=0;
For i:=1 to n do
Write('a[', i, '] = '); readln(a[i]);
If a[i] mod 3=0 then inc(d);
End;
Writeln('co ', d, ' so chia het cho 3');
Writeln('xuat nguoc mang: ');
For i:=n downto 1 do write(a[i], ' ');
Readln
End.
program mang;
uses crt;
var A:array [1..100] of integer;
n,i,d: byte;
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if A[i] mod 3=0 then d:=d+1;
end;
writeln('a) Co ',d,' so chia het cho 3');
write('b) Day in nguoc: ');
for i:=n downto 1 do write(A[i],' ');
readln;
vấn đề khai thác rừng amazon (vai trò,thực trạng hiện nay và những vấn đề về môi trường cần quan tâm hiện nay đối với toàn cầu)
đức tính giản dị của bác Hồ có ý nghĩa như thế nào đối với tính cách phẩm chất của người
mn ơi giúp câu 5 vs ạ.E đọc qua cái bạn giá trị của tình bạn vs nghe nhạc piano buồn.Em cảm động quá 😢😭, mn đặt cho e câu cảm động một tí nha ❤️
Giải giúp giải quyết các câu ở trên với ạ!
Đặt câu theo các tình huống sau dùng kiểu phủ địnhvà nêu chức năng 1 Khen ngợi 1 điều gì đó 2 để nhờ việc gì đó 3 chê 1 điều gí đó
Vì sao nghĩa quân lại đánh chúa Nguyễn mà ko đánh chúa Trịnh ? trong bài 25 phong trào tây sơn của bài 2 tây sơn lật đổ chính quyền họ nguyễn và đánh tan quân xâm lược xiêm
Có ý kiến cho rằng:" Theo mình cứ ăn nhiều cơm và uống nhiều nước ngọt là đủ chất dinh dưỡng để nuôi sống và phát triển cơ thể tốt,không cần lo nghĩ gỉ cả" Em có đồng ý với ý kiến đó không Vì sao
Giúp em với ạ lát em phải nạp bài rồi
vẽ cái gì đó hài hước đi hoàn thành nhiệm vụ đoàn kết rùi mà ko cho hoàn thành :)
Mình cần gấp nhaaaaaaaa 1.Máy cơ đơn giản. Mặt phẳng nghiêng: Tác dụng? Ví dụ thực tế? Ứng dụng? Đòn bẩy: Tác dụng? Cấu tạo? Ứng dụng? RÒng rọc: Tác dụng? Cấu tạo? Ứng dụng? 2. Chất rắn: Kết luận? Ứng dụng thực tế? chất lỏng: Kết luận? Ứng dụng thực tế? chất khí: Kết luận? Ứng dụng thực tế?
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
