Число должно быть четным и делиться на 9, значит сумма его цифр должна делиться на 9. тогда все число будет делиться на 18. Поскольку число 4х значное самое большое предположим, что оно начинается с 9. 9 поставим на второе место 8<9, на третье место поставим 7 (7<8). 8+7+*=15+* (1-ую 9 из суммы цифр можно откинуть) Ближайшее число, чтобы получилось кратное 9 - это 3. но тогда число будет нечетным. предположим, что на 3ьем месте число 6 (6<8), тогда 8+6+*=14+* число кратное 9 - 18. Значит последняя цифра 4 (4<6). и число 9864. проверка 9864:18=548
Program long; uses Crt; const n=5; type Vec=array [1..n] of integer; var A, B, C: Vec; i,j,k, Col: integer; Pro: longint; a1, a2: integer; begin ClrScr; Randomize; Col:=1; Pro:=1; WriteLn ('Massiv A:'); for i:=1 to n do begin A[i]:=500+random(2000); Write(A[i]:6); if A[i] >1000 then begin B[Col]:=A[i]; Col:=Col+1; end; end; WriteLn; Col:=Col-1; WriteLn; WriteLn ('Massiv B:'); for i:=1 to Col do WriteLn(B[i]); WriteLn; k:=1; for i:=1 to n do begin a2:=B[i] mod 10; a1:=B[i] div 1000; if sqr(a1)<sqr(a2) then begin C[k]:=B[i]; k:=k+1; end; end; for i:=1 to k-1 do Pro:=Pro*C[i]; WriteLn ('Pro=',Pro); ReadLn; end.
100% -80р
х% - 12 руб
х=100*12:80=15%