Viết chương trình nhập vào 3 số nguyên, đếm xem tổng của ba số đó chia hết cho bao nhiêu phần tử trong mảng A gồm 50 phần tử
Viết chương trình nhập vào 3 số nguyên, đếm xem tổng của ba số đó chia hết cho bao nhiêu phần tử trong mảng A gồm 50 phần tử
program ch;
uses crt;
var a,b,c,i,dem: integer;
a: array[1..50] of integer;
S: longint;
begin
clrscr;
write(‘Nhap 3 so nguyen: ‘);
readln(a,b,c);
writeln(‘–Nhap mang–‘);
for i:=1 to 50 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(a[i]);
end;
S:=a+b+c;
for i:=1 to 50 do
begin
if(S mod a[i] = 0) then dem:=dem+1;
end;
readln;
end.
program ct;
uses crt;
var A:array[1..50] of integer;
i,a,b,c,dem:integer;
S:longint;
begin clrscr;
for i:=1 to 50 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
writeln(‘Nhap vao ba so nguyen: ‘); readln(a,b,c);
S:=a+b+c; dem:=0;
for i:=1 to 50 do
if S mod A[i] =0 then dem:=dem+1;
writeln(‘Tong cua ba so do chia het cho ‘,dem,’ phan tu cua mang A);
readln;
end.
Học tốt!