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 Hotboy;
Uses crt;
Var A:array[1..50] of integer;
So1,so2,so3 : integer;
S:longint;
Dem,i:byte;
Begin
Clrscr;
S:=0; dem:=0;
Write(‘nhap 3 so’);
Readln(so1,so2,so3);
S:=so1+so2+so3;
For i:=1 to 50 do
Begin
Write(‘A[‘,i,’]’);
Readln(A[i]);
End;
For i:=1 to 50 do
If (S mod A[i] =0) then inc(dem);
Writeln(‘tong chia het cho’,dem,’phan tu’);
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!