Nhập vào n số nguyên từ bàn phím. Tính tổng các số có tổng các chữ số chia hết cho 4 trong n số vừa nhập. <Pascal> Cam on a.

mineebap13

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 43 xem

1 trả lời

Thích Trả lời

ongvanlieu

var a:array[1..1000] of longint;
n,i,s:longint;
function tongchuso(n:longint):longint;
var s:longint;
begin
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
exit(s);
end;
begin
write('Nhap n:');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if tongchuso(a[i]) mod 4=0 then
s:=s+a[i];
write('Tong cac so co tong chu so chia het cho 4 la:',s);
readln;
end.

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

toxuandong1801

program Tin_hoc;

uses crt;

var n,i,tong:integer;

a: array [1..1000000] of integer;

begin

clrscr;

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

writeln('Nhap ',n,' so:');

tong:=0;

for i:=1 to n do

begin

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

readln(a[i]);

if a[i] mod 4 = 0 then tong:= tong + a[i]

end;

writeln('Tong cac chu so chia het cho 4 trong ',n,' so vua nhap la: ',tong);

readln;

end.

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

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

Cần gấp lắm ạ, mọi người giúp em với.

Giúp mình giả chi tiết bài này ik ak. Áp dụng vào định lý ta let ak. Mình xin cảm ơn

Em thấy tranh tĩnh vật có tác dụng gì trong cuộc sống. Trả lời giúp mik

Mn ơi nên dùng ( ing/ hay ed ạ) giúp e với

Ai giúp e đc ko ạ e đg cần gấp, e cảm ơn

giúp mk với..........................

Đọc đoạn văn sau và trả lời câu hỏi . Đừng để ý cái mình khoanh mình khoảnh bừa đấy ,không cần giải thích.

giúp mk với........................

P=($\frac{√x}{√x+1}$-$\frac{1}{x+√x}$).($\frac{1}{√x+1}$+ $\frac{1}{x-1}$) Tìm nhỏ nhất của A=P+$\frac{√x+19}{9}$

Câu 1. Một hỗn hợp X gồm 2 hiđrocacbon mạch hở. Tỉ khối hơi của X so với hidro là 16. Khối lượng phân tử của chúng hơn kém nhau 16 đvC. Ở đkc, 8,96 lít hỗn hợp tác dụng vừa đủ với 0,5 lít dung dịch Br2 0,6M. Sau phản ứng, thể tích khí còn lại 2,24 lít. Tìm CTPT của 2 hiđrocacbon?

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