Question

VCT: Tính khối lượng của 5 xe. Khối lượng của 5 xe được nhập rừ bàn phím

Answer 1

program TinhKhoiLuongXe;
var
  i, khoi_luong, tong_khoi_luong: integer;
begin
  tong_khoi_luong := 0;
  for i := 1 to 5 do
  begin
    writeln('Nhap khoi luong xe ', i, ': ');
    readln(khoi_luong);
    tong_khoi_luong := tong_khoi_luong + khoi_luong;
  end;
  writeln('Tong khoi luong cua 5 xe la: ', tong_khoi_luong);
  readln;
end.