Помогите пожалуйста решить задачу ** Pascal. Прописать к числу 125 слева и справа по...

Question

Помогите пожалуйста решить задачу на Pascal.
Прописать к числу 125 слева и справа по одной цифре так, чтобы полученное пятизначное число делилось на 3; 4 и 7. На вложенные циклы

Answer 1

Const A:array [1..3] of integer=(3,4,7);
var n, m, i,j :integer; s,t:string;
begin
for i :=1 to 9 do begin
s:='125';str(i,t);s:= t + s + t;
for j:= 1 to  3 do begin
n:= strTOInt(s);if n mod a[j] = 0 then m:= m +1;
//writeln(n);end;
if m = 3 then writeln(n);
s:='';m:=0;end;end.

Comments

Как все сложно. Гораздо проще { 3*4*7 = 84 }
var i,j,n: integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
begin
n:=i*10000+1250+j;
if (n mod 84)=0 then
writeln('число = ',n);
end;
end. ответ 11256 и второе число 21252

---

спасибо