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".
Vct nhập vào một mảng,tìm ra số có tích các chữ số lớn nhất(pascal)
By Eloise
Vct nhập vào một mảng,tìm ra số có tích các chữ số lớn nhất(pascal)
uses crt; var n,i,m,max:longint; a:array[1..10000000]of longint; function tich(a:longint):longint; begin tich:=1; repeat tich:=tich*(a mod 10); a:=a div 10; until a=0; end; begin clrscr; write(‘Nhap so phan tu: ‘);readln(n); for i:=1 to n Do begin write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]); if tich(a[i])>max then begin max:=tich(a[i]); m:=a[i]; end; end; writeln(‘So co cac tich cac chu so lon nhat ‘,m); readln end.
uses crt;
var n,i,m,max:longint; a:array[1..10000000]of longint;
function tich(a:longint):longint;
begin
tich:=1;
repeat
tich:=tich*(a mod 10);
a:=a div 10;
until a=0;
end;
begin
clrscr;
write(‘Nhap so phan tu: ‘);readln(n);
for i:=1 to n Do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
if tich(a[i])>max then
begin
max:=tich(a[i]);
m:=a[i];
end;
end;
writeln(‘So co cac tich cac chu so lon nhat ‘,m);
readln
end.
program tim_so;
uses crt;
var A:array[1..1000] of integer;
n,max,i,j,ptu:integer;
function tich(k:integer):integer;
begin
tich:=1;
while n>0 do
begin
tich:=tich*(n mod 10);
n:=n div 10;
end;
end;
BEGIN
clrscr;
write(‘Nhap so luong: ‘); readln(n);
write(‘A[1]= ‘); readln(A[1])
max:=tich(A[1]); ptu:=A[1];
for i:=2 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if tich(A[i])>max then
begin
max:=tich(A[i]);
ptu:=A[i];
end;
end;
write(‘So co tich lon nhat la: ‘,ptu);
readln;
end.