Kiểu dữ liệu có cấu trúc

Đoàn Thị Thu Hà
Nhờ các cao nhân giúp em với ạ !! 

Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).

Nguyễn Lê Phước Thịnh
30 tháng 12 2020 lúc 23:27

uses crt;

var a,t,dem:integer;

begin

clrscr;

t:=0;

dem:=0;

repeat

write('Nhap a='); readln(a);

if (a mod 2=0) and (a mod 3=0) then

  begin

    t:=t+a;

dem:=dem+1;

end;

until a=0;

writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
09 Lê Quang HIếu
Xem chi tiết
PEACH A
Xem chi tiết
Huyền Trang
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
Thùy An
Xem chi tiết
Ngọcc Ngọccc
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Ngô Thành Chung
Xem chi tiết
Nguyễn Phan Thảo Ngân
Xem chi tiết