Bài 1: tạo mảng A gồm n (n nhỏ hơn và bằng 150) số nguyên. tính tổng các số chia hết cho 5 và 3 Bài 2 : tạo mảng A gồm n (n nhỏ hơn và bằng 150) số nguyên. Tính tổng các số chia hết cho k cho trước. Các bạn giúp mik vs nhé, mik cảm ơn trước. Hứa sẽ vote 5 sao và cảm ơn??
2 câu trả lời
Bai 1:
Uses crt;
Var a:array[1..250] of integer;
n,i,tong:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do if (a[i] mod 5=0) and (a[i] mod 3=0) then tong:=tong+a[i];
write('tong cac so chia het cho 3 va 5 la: ',tong);
readln;
end.
Bai 2:
Uses crt;
Var a:array[1..250] of ingteger;
n,i,tong,k:integer;
begin
write('nhap n: ');readln(n);
write('nhap k: ');readln(k);
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i] mod k=0 then tong:=tong+a[i];
write('tong cac so chi het cho ',k,' la: ',tong);
readln
end.
1.
program Tin_hoc;
uses crt;
var i,n,t:integer;
a:array[1..10000] of integer;
begin
clrscr;
writeln('Nhap n<=150:');readln(n);
while n>150 then
begin
write('Nhap lai:');readln(n)
end;
t:=0
writeln('Nhap ',n,' so cua mang A:');
for i:= 1 to n do
begin
readln(a[i]);
if (a[i] mod 5 = 0) and (a[i] mod 3 = 0) then t:= t + a[i]
end;
writeln('Tong cac so chia het cho 3 va 5 co trong mang A la: ',t);
readln;
end.
2.
program Tin_hoc;
uses crt;
var i,n,k,t:integer;
a:array[1..10000] of integer;
begin
clrscr;
writeln('Nhap n<=150:');readln(n);
while n>150 then
begin
write('Nhap lai:');readln(n)
end;
write('Nhap k: ');readln(k)
t:=0
writeln('Nhap ',n,' so cua mang A:');
for i:= 1 to n do
begin
readln(a[i]);
if a[i] mod k = 0 then t:= t + a[i]
end;
writeln('Tong cac so chia het cho ',k,' co trong mang A la: ',t);
readln;
end.
