Question

ai đóa giúp mk vs!!!

Cho số nguyên dương N, M và P là các số có 3 chữ số. Tìm số có tích các chữ số
lớn nhất. Đưa tích lớn nhất ra.
Ví dụ: N = 234  tich1 = 24; M = 123  tich2 = 6; P = 321  tich3=6.
Kết quả: Tích lớn nhất là 24.
Dữ liệu: Vào từ tệp CALC.INP gồm một dòng duy nhất chứa số nguyên N, M và
P là các số có 3 chữ số. Mỗi số cách nhau một dấu cách.
Kết quả: Ghi ra tệp CALC.OUT số nguyên duy nhất là tích lớn nhất tìm được.

Thank kiu trước nhoa

Answer 1

const fi='calc.inp';
fo='calc.out';
var f1,f2:text;
max,a,b,c,d1,t1,i,x,y,d2,t2,d,e,d3,t3,f,g:integer;
st1,st2,st3:string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
str(a,st1);
str(b,st2);
str(c,st3);
d1:=length(st1);
t1:=1;
for i:=1 to d1 do
begin
val(st1[i],x,y);
t1:=t1*x;
end;
d2:=length(st2);
t2:=1;
for i:=1 to d2 do
begin
val(st2[i],d,e);
t2:=t2*d;
end;
d3:=length(st3);
t3:=1;
for i:=1 to d3 do
begin
val(st3[i],f,g);
t3:=t3*f;
end;
max:=t1;
if max<t2 then max:=t2;
if max<t3 then max:=t3;
writeln(f2,max);
close(f1);
close(f2);
end.