K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 5 2023

program TinhSanLuongLua;
var
num_households, i: integer;
xom3_harvest, xom6_harvest: array[1…100] of real;
xom3_total, xom6_total, xom3_avg, xom6_avg: real;
begin
// Nhập vào số lượng hộ gia đình ở xóm 3 và xóm 6
write('Nhap so luong ho gia dinh o xom 3 va xom 6: ');
readln(num_households);

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 3
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 3:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom3_harvest[i]);
end;

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 6
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 6:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom6_harvest[i]);
end;

// Tính tổng sản lượng thu hoạch lúa của từng xóm
xom3_total := 0;
xom6_total := 0;
for i := 1 to num_households do
begin
xom3_total := xom3_total + xom3_harvest[i];
xom6_total := xom6_total + xom6_harvest[i];
end;

// Tính sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
xom3_avg := xom3_total / num_households;
xom6_avg := xom6_total / num_households;

// In ra màn hình sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 3 la: ', xom3_avg:0:2);
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 6 la: ', xom6_avg:0:2);

Bạn tham khảo

 

11 tháng 5 2023

program TinhSanLuongLua;
const
  SoHoGiaDinh = 5;

var SanLuongXom3: array[1..SoHoGiaDinh] of Integer;
      SanLuongXom6: array[1..SoHoGiaDinh] of Integer;
       i: Integer;
  begin
  writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 3:');
  for i := 1 to SoHoGiaDinh do
  begin
    write('Ho gia dinh ', i, ': ');
    readln(SanLuongXom3[i]);
  end;
  writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 6:');
  for i := 1 to SoHoGiaDinh do
  begin
    write('Ho gia dinh ', i, ': ');
    readln(SanLuongXom6[i]);
  end;
  writeln('Chenh lech san luong thu hoach lua cua moi ho gia dinh o xom 3:');
  for i := 1 to SoHoGiaDinh do
  begin
    writeln('Ho gia dinh ', i, ': ', SanLuongXom3[i] - SanLuongXom6[i]);
  end;
   readln;
end.

 

NG
14 tháng 10 2023

a) Biểu đồ tròn.

b) Biểu đồ đường gấp khúc.

5 tháng 3 2022

INP: 150 hóa đơn

OUT: Tổng số tiền của 150 hóa đơn

Thuật toán

B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]

B2: t←0; i←1;

B3: Nếu i<=n thì in ra tổng số tiền và kết thúc

B4: t←t+a[i]; quay lại bước 3

B5: i←i+1; quay lại bước 3.

*Viết chương trình

program hotrotinhoc;

var i,t: longint;

a: array[1..150] of longint;

begin

for i:=1 to 150 do

begin

write('Nhap hoa don so ',i ,':'); readln(a[i]);

end;

t:=0; i:=1;

while i<=n do

begin

t:=t+a[i];

i:=i+1;

end;

write('Tong so tien la : ',t);

readln

end.

6 tháng 3 2022

Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy

5 tháng 5 2023

var i,n,s:integer;

t,v,a,tb:real;

begin

write('Nhap so luong hoc sinh ');readln(n);

for i:=1 to n do

begin

write('Nhap diem toan ');readln(t);

write('Nhap diem van ');readln(v);

write('Nhap diem anh ');readln(a);

s:=t+v+a;

tb:=s/3;

write('DTB cua ban thu ',i,' = ',tb:10:2);

s:=0;

end;

readln

end.

24 tháng 3 2022

giúp mình với, mình cần gấp

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=0;

for (i=1; i<=n; i++)

{

if (a[i]%2==0) t1+=a[i];

else t2+=a[i];

}

cout<<t1<<endl;

cout<<t2;

return 0;

}

30 tháng 7 2023

Tham khảo!

Vai trò của máy tính trong việc hình thành, phát triển:

- Xã hội thông tin: Sự phát triển máy tính, Internet, các dịch vụ trên mạng (công cụ tìm kiếm, mạng xã hội, thư điện tử, …) giúp con người dễ dàng, nhanh chóng tiếp cận, chia sẻ thông tin trên mọi lĩnh vực.

- Nông nghiệp, công nghiệp thông minh: Ứng dụng công nghệ cao trong hoạt động sản xuất. Các thiết bị thông minh phối hợp với nhau tạo thành hệ thống thông minh có thể tự thu thập, truyền, xử lí thông tin và tự ra quyết định hành động.

14 tháng 9 2023

Vai trò của máy tính trong việc hình thành, phát triển:

- Xã hội thông tin: Sự phát triển máy tính, Internet, các dịch vụ trên mạng (công cụ tìm kiếm, mạng xã hội, thư điện tử, …) giúp con người dễ dàng, nhanh chóng tiếp cận, chia sẻ thông tin trên mọi lĩnh vực.

- Nông nghiệp, công nghiệp thông minh: Ứng dụng công nghệ cao trong hoạt động sản xuất. Các thiết bị thông minh phối hợp với nhau tạo thành hệ thống thông minh có thể tự thu thập, truyền, xử lí thông tin và tự ra quyết định hành động.