KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Vtc nhập vào n phần tử in ra màn hình các số chia hết cho 2,3,5
By Melody
Vtc nhập vào n phần tử in ra màn hình các số chia hết cho 2,3,5
Program qtruong; Uses crt; Var i, n:integer; D:array[1..100000] of longint; Begin Clrscr; Write(‘Nhap n = ‘); readln(n); For i:=1 to n do Begin Write(‘D[‘,i,’]=’);
Readln(D[i]);
End; For i:=1 to n do if D[i] mod 2 = 0 then writeln(‘Cac so chia het cho 2 la: ‘,D[i]); For i:=1 to n do if D[i] mod 3 = 0 then writeln(‘Cac so chia het cho 3 la: ‘,D[i]); For i:=1 to n do if D[i] mod 5 = 0 then writeln(‘Cac so chia het cho 5 la: ‘,D[i]); Readln End.
Program qtruong;
Uses crt;
Var i, n:integer;
D:array[1..100000] of longint;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘D[‘,i,’]=’);
Readln(D[i]);
End;
For i:=1 to n do if D[i] mod 2 = 0 then writeln(‘Cac so chia het cho 2 la: ‘,D[i]);
For i:=1 to n do if D[i] mod 3 = 0 then writeln(‘Cac so chia het cho 3 la: ‘,D[i]);
For i:=1 to n do if D[i] mod 5 = 0 then writeln(‘Cac so chia het cho 5 la: ‘,D[i]);
Readln
End.
{sử dụng mảng}
program ct;
uses crt;
var a:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
write(‘nhap n : ‘);
readln(n);
for i:=1 to n do begin
write(‘nhap a[‘,i,’] : ‘);
readln(a[i]);
end;
{chia hết cho 2}
write(‘cac so chia het cho 2 la : ‘);
for i:=1 to n do if a[i] mod 2 = 0 then write(a[i]:5);
{chia hết cho 3}
write(‘cac so chia het cho 3 la : ‘);
for i:=1 to n do if a[i] mod 3 = 0 then write(a[i]:5);
{chia het cho 5}
write(‘cac so chia het cho 5 la : ‘);
for i:=1 to n do if a[i] mod 5 = 0 then write(a[i]:5);
readln;
end.