Đếm Xem Có Bao Nhiêu Số Chia Hết Cho 3 Mà Ko ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

xuanpham508
Chưa có nhóm

Trả lời
0
Điểm
75
Cảm ơn
0

Tin Học
Lớp 10
10 điểm
xuanpham508 - 21:40:29 28/10/2019

Đếm xem có bao nhiêu số chia hết cho 3 mà ko chia hết cho 5

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

sonngocthone
Chưa có nhóm

Trả lời
18
Điểm
435
Cảm ơn
7

sonngocthone

28/10/2019

* Xác định bài toán :

- Input : Số nguyên N và dãy a1, a2,…, aN.

- Output : Số các số chia hết cho 3 mà không chia hết cho 5.

* Thuật toán :

- Bước 1 : Nhập N và dãy a1, a2,…, aN;

- Bước 2 : i←1; S←0;

- Bước 3 : Nếu i > N thì đưa ra giá trị S rồi kết thúc; (S là số các số chia hết cho 9).

- Bước 4 :

+ Bước 4.1 : Nếu ai chia hết cho 3 và không chia hết cho 5 thì S←S+1;

+ Bước 4.2 : i←i+1 rồi quay lại bước 3.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy

Cảm ơn
Báo vi phạm

Đăng nhập để hỏi chi tiết avatar

keyy
Annihilators

Trả lời
1742
Điểm
27996
Cảm ơn
1312

keyy

30/10/2019

Program TB;Uses crt;Var A: array[1..10000] of longint; i,s,n: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End; s:=0; For i:=1 to n do If (A[i] mod 3 = 0) and (A[i] mod 5 <> 0) then inc(s); Write('Co ',s,' so chia het cho 3 khong chia het cho 5'); ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?