Viết chương trình tính và in ra màn hình tổng số các phần tử có giá trị chia hết cho 2,chia hết cho 5 trong dãy N số nguyên nhập từ bàn phím ?

adat2003

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

ctvloga37

program chia_het_2_5;

uses crt;

var A:array[1..1000] of integer;

n,i,t,t2,t5:integer;

begin

clrscr;

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

if A[i] mod 2=0 then t2:=t2+A[i];

if A[i] mod 5=0 then t5:=t5+A[i];

if (A[i] mod 2=0) and (A[i] mod 5=0) then t:=t+A[i];

end;

writeln('Tong cac so chia het cho 2 la: ',t2);

writeln('Tong cac so chia het cho 5 la: ',t5);

writeln('Tong cac so vua chia het cho 2, vua chia het cho 5 la: ',t);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

680800412321772

var a:array [1..100] of integer;

n,i : integer;

begin

readln (n);

for i :=1 to n do

readln (a[i]);

for i:=1 to n do

if a mod 2 = 0 then

write (a[i]);

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

liệt kê các chiến thắng tiêu biểu trong cuộc kháng chiến chống pháp của nhân dân ta. em ấn tượng nhất chiến thắng nào, vì sao? đánh giá chung về tinh thần kháng chiến của nhân dân ta? giúp mk nhé

Ở nhiều xe đạp có bộ phận gọi là dinamo là nguồn điện thắp sáng đèn pin Hãy cho biết làm thế nào để nguồn điện này hoạt động thắp sáng

Giúp em với ạ!!!!!!!!!!!!!!!!!!!!!

Giúp mik với ạ mik cảm ơn 😊😅😅

Bài 1. Tính chất hóa học của nước - Định nghĩa, cách phân loại oxit, axit, bão , muối Giúp mik vs đang cần gấp

Mọi người giúp mik vs ạ ; làm đc bài mô thì lm ạ nhưng phải 3 bài trở lên bạn nhé . cảm ơn bạn

0: Viết chương trình nhập 1 xâu từ bàn phím. Hiển thị tất cả các chữ số trong xâu lên màn hình

giúp em với nếu tính diện tích hình trong thiếu bán kính mà nó nói là chu vi giúp mk nhé

làm hộ mình với mình đang cần 🤔🤔🤔🤔🤔

Dựa vào đâu người ta chia ra các khối khí :nóng,lạnh, đại dương và Lục địa.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến