19/04/2020 16:30:56

Viết các chương trình sau?

Chỉ mình với mọi người ơi :(((( Tới thứ 3 phải nộp rồi ạ :((((

3 Xem trả lời

+ Trả lời +2đ

Hỏi gia sư

+500k

685

3 trả lời

Thưởng th.11.2024

Xếp hạng

Đấu trường tri thức +500K

// Nhớ tích điểm cho tớ //

program baitap1;
uses crt;
var n,i,tich:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
tich:=1;
for i:=1 to n do
beign
write('Nhap a[',i,']: ');
readln(a[i]);
end;
writeln('Day vua nhap: ');
for i:=1 to n do
begin
write(a[i],' ');
if ((a[i] mod 5) = 0 ) then tich:=tich*a[i];
end;
write('Tich cac so chia het cho 5 trong mang la: ',tich);
readln;
end.

// Nhớ tích điểm cho tớ //

program baitap2;
uses crt;
var n,i,tong:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
tong:=0;
for i:=1 to n do
beign
write('Nhap a[',i,']: ');
readln(a[i]);
end;
writeln('Day vua nhap: ');
for i:=1 to n do
begin
write(a[i],' ');
if (a[i] <= 5) then tong:=tong+a[i];
end;
write('Tong cac so khong qua 5 trong mang la: ',tong);
readln;
end.

// Nhớ tích điểm cho tớ //

program baitap3;
uses crt;
var n,i,tong:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
tong:=0;
for i:=1 to n do
beign
write('Nhap a[',i,']: ');
readln(a[i]);
end;
writeln('Day vua nhap: ');
for i:=1 to n do
begin
write(a[i],' ');
if (a[i]>0) then tong:=tong+Sqr(a[i]);
end;
write('Tong binh phuong cac so duong trong mang la: ',tong);
readln;
end.

Trả lời nhanh trong 10 phút và nhận thưởng

Đấu trường tri thức +500K

Bạn muốn biết điều gì?

GỬI CÂU HỎI

Học tập không giới hạn cùng học sinh cả nước và AI, sôi động, tích cực, trải nghiệm

Câu hỏi mới nhất

Phương trình giao động của vật là? (Vật lý - Lớp 11)

0 trả lời

Trình bày suy nghĩ của em và hiện tượng không nghiêm túc trong giờ học (Ngữ văn - Lớp 6)

2 trả lời

Một vật dao động điều hòa dọc theo trục Ox, chọn góc tọa độ trùng với vị trí cân bằng của vật. Biết khoảng thời gian giữa hai lần tiếp vật đi qua vị trí cân bằng là 1 s. Lấy \(\pi^2 = 10\). Tại thời điểm ban đầu t = 0 vật có gia tốc \(a = -10 \, cm/s^2\) và vận tốc \(v = -\pi\sqrt{3} \, cm/s\). Phương trình dao động của vật là (Vật lý - Lớp 11)

1 trả lời

Nêu cấu tạo và nguyên lí làm việc của cơ cấu tay quay thanh lắc? Nêu đặc điểm của một số nghành nghề phổ biến trong lĩnh vực cơ khí? Hãy nêu 6 biện pháp an toàn cần thiết khi sử dụng thiết bị điện trong gia đình. Giải thích tại sao mỗi biện pháp lại quan trọng? Mạch điện điều khiển có thể bao gồm những mô đun nào? Hãy nêu tên và phân loại chúng (Công nghệ - Lớp 8)

2 trả lời

Rút gọn biểu thức: A = 6√a + \(\frac{4}{a-4}\) + \(\frac{\sqrt{a}+4}{\sqrt{a}+2}\) (Toán học - Lớp 9)

2 trả lời

Xem thêm

Câu hỏi liên quan

Nêu vẻ đẹp anh hùng Từ Hải trong "Chí khí anh hùng " (Ngữ văn - Lớp 10)

2 trả lời

Chose the best answers (Tiếng Anh - Lớp 6)

1 trả lời

Trong bài TĐN số 7 gồm những tên nốt, hình nốt nào?Nốt nào là nốt thấp nhất, nốt nào là nốt cao nhất?Bài chia làm bao nhiêu câu? (Âm nhạc - Lớp 6)

0 trả lời

Hậu quả sản xuất nông nghiệp như thế nào? (Địa lý - Lớp 7)

1 trả lời

Đường dốc lên một ngôi chùa có 150 bậc thang, mỗi bậc thang có chiều cao 20 cm ( = AM ), chiều rộng 21 cm ( = MB ) (Toán học - Lớp 7)

0 trả lời

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui	Buồn	Bình thường

Bảng xếp hạng thành viên

12-2024 11-2024 Yêu thích

off thi cuối kì sẽ ...

Trang chủ	Giải đáp bài tập	Đố vui	Ca dao tục ngữ	Liên hệ	Tải ứng dụng Lazi
Giới thiệu	Hỏi đáp tổng hợp	Đuổi hình bắt chữ	Thi trắc nghiệm	Ý tưởng phát triển Lazi
Chính sách bảo mật	Trắc nghiệm tri thức	Điều ước và lời chúc	Kết bạn 4 phương	Xem lịch
Điều khoản sử dụng	Khảo sát ý kiến	Xem ảnh	Hội nhóm	Bảng xếp hạng
Tuyển dụng	Flashcard	DOL IELTS Đình Lực	Mua ô tô	Bảng Huy hiệu
Đấu trường tri thức	Thơ văn danh ngôn	Từ điển Việt - Anh	Đề thi, kiểm tra	Xem thêm

Viết các chương trình sau?

Đăng nhập

Mở khóa để xem toàn bộ nội dung trả lời