Bài 1. Sử dụng vòng lặp để giải quyết bài toán. Viết CT tính tổng sau với n là số tự nhiên S= 1/2+1/4+1/8+1/16+...+1/n+1/n*2 Bài 2. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên - Tính trung bình cộng của dãy số nguyên đó - Tìm tất cả các phần tử là số chẵn, lẻ

dautu806

2 năm trước

Bài 1. Sử dụng vòng lặp để giải quyết bài toán. Viết CT tính tổng sau với n là số tự nhiên S= 1/2+1/4+1/8+1/16+...+1/n+1/n*2 Bài 2. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên - Tính trung bình cộng của dãy số nguyên đó - Tìm tất cả các phần tử là số chẵn, lẻ - Tìm phần tử có giá trị lớn nhất, nhỏ nhất - Đếm số phần tử lẻ, chẵn Mong mn lm chính xác, rõ ràng, nếu có thể gửi chương trình chạy thì càng tốt THANK YOU VERY MUCH ❤️

Loga Sinh Học lớp 12

0 lượt thích 12 xem

1 trả lời

Thích Trả lời

phip2714

Uses Crt;
Var a:array[1..1000] of integer;
i,n,s:integer; TBC:real;
Demc,Deml,max,min:integer;
Begin
Clrscr;
For i:= 1 to 4 do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
For i:= 1 to 4 do
Begin
If a[i] mod 2 = 0 then Demc:=Demc+1;
If a[i] mod 2 <> 0 then Deml:=Deml+1;
S:=S+a[i];
TBC:=S/4;
End;
Writeln;
Write('TBC cua day so nguyen do = ',TBC:1:2);
Writeln;
Writeln;
Write(' Cac so chan co trong day la: ');
For i:= 1 to 4 do If a[i] mod 2 = 0 then write(a[i]:4);
Writeln;
max:=a[1]; min:=a[1];
For i:= 2 to 4 do
Begin
If max<a[i] then max:=a[i];
If min>a[i] then min:=a[i];
End;
Write(' Cac so le co trong day la: ');
For i:= 1 to 4 do If a[i] mod 2 = 1 then Write(a[i]:4);
Writeln;
Writeln;
Write(' So lon nhat trong day la: ',max);
Writeln;
Write(' So nho nhat trong day la: ',min);
Writeln;
Writeln;
Writeln(' Co ',Demc,' so chan trong day so tren');
Writeln(' Co ',Deml,' so le trong day so tren');
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! :333

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

bài 2 .Tổng của hai chồng sách là 90 quyển. Nếu chuyển từ chồng thứ hai sang chồng thứ nhất 10 quyển thì số sách ở chồng thứ nhất sẽ gấp đôi chồng thứ hai . Tìm số sách ở mỗi chồng lúc ban đầu . giúp e nhanh vs hhuhuhuhuhuh

KdjnsbsbsdbbbHhjjnnnndnsnsnsnsn helppppo

vd ảnh hưởng của sự bay hơi và ngưng tụ với sinh vật tác hai và khắc phục

bài 1 Cho ABC có AB=12cm , AC= 15cm , BC = 16cm . Trên cạnh AB lấy điểm M sao cho AM =3cm . Từ M kẻ đường thẳng song song với BC cắt AC tại N , cắt trung tuyến AI tại K . a/ Tính độ dài MN b/ Chứng minh K là trung điểm của MN c/ Trên tia MN lấy điểm P sao cho MP= 8cm. Nối PI cắt AC tại Q. C/minh tamm giác QIC đồng dạng với tam giác AMN giúp e vs ạ

Qua bài thơ Ngắm Trăng (Vọng Nguyệt) em học tập được gì ở Bác? (viết đoạn văn ngắn)

Có 2 chữ thôi giải nhanh giúp mình với

Câu1 Viết phương trình hóa học a)khí hiđro từ kẽm và axit clohiđric b)khí oxi từ kali clorat Câu2 tính Nồng độ phần trăm khi hòa tan 0,4mol natri cacbonat vào 120g dung dịch Nồng độ mol dung dịch chứa 0,5 mol Hgcl2 trong 1,5 lít dung dịch Giúp nhanh với mọi người vote 5 sao và ctlhn ạ.

lúc 7 giờ 45 phút, một người đi xe máy từ xã Lê Trì đến Long Xuyên lúc 10 giờ 9 phút với vận tốc trung bình là 33km/ giờ . Tính quãng đường từ xã Lê Trì đến Long Xuyên Mn chỉ em với ạ :((

Vẽ sơ đồ nguyên lí mạch điện gồm 2 cầu chì, 1 ổ cắm, 2 công tắc, 2 cực điều khiển, 2 đèn mắc song song giúp mình với ạ :((

Giúp mình với !! Chiều mình thi rồi!!😭

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến