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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quý Tạ

VIẾT CHƯƠNG TRÌNH NHẬP VÀO MỘT DÃY N SÔ THỰC (N<= 250).
ĐẾM XEM TRONG DÃY CÓ BAO NHIÊU SỐ VỪA CHIA HẾT CHO 3
VỪA CHIA HẾT CHO 5.

1. KHAI BÁO CÁC BIẾN DÙNG TRONG CHƯƠNG TRÌNH:

2. ĐOẠN CHƯƠNG TRÌNH DƯỚI ĐÂY DÙNG ĐỂ NHẬP DÃY N SỐ
THỰC:

3. ĐOẠN CHƯƠNG TRÌNH DƯỚI ĐÂY DÙNG ĐỂ ĐẾM CÓ BAO NHIÊU
SỐ TRONG DÃY VỪA CHIA HẾT CHO 3 VỪA CHIA HẾT CHO 5:

4. IN KẾT QUẢ VÀ KẾT THÚC CHƯƠNG TRÌNH:

Nguyễn Lê Phước Thịnh
2 tháng 5 2020 lúc 19:38

uses crt;

var a:array[1..250]of real;

i,n,dem:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5=0) then inc(dem);

writeln('So phan tu chia het cho 3 va chia het cho 5 la: ',dem);

readln;

end.


Các câu hỏi tương tự
PEACH A
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Đoàn Thị Thu Hà
Xem chi tiết
Bin Nguyễn
Xem chi tiết
Ngọcc Ngọccc
Xem chi tiết
Nguyễn Phan Thảo Ngân
Xem chi tiết
Giang Vũ
Xem chi tiết
Thi Đua Khen Thưởng
Xem chi tiết