// методом перебора
// Ответ: 15276
const m=57;
n=67;
var i,x:word;
q:boolean;
begin
i:=99;
q:=true;
while (i<1000) and q do begin
i:=i+1;
x:=15000+i;
if (x mod m=0) and (x mod n=0) then
q:=false;
end;
writeln(x);
end.
Вот решение:
- 1 байт - 8 бит
- 128 бит - 16 байт
- 1 КБ - 8192 бит
- 1,5 КБ - 1536 байт
- 2048 байт - 2 КБ
- 2 Мбайт - 2048 КБ
- 81920 бит - 10 КБ
- 1,5 Мбайт - 1572864 байт
Лови шпаргалку, может пригодится
А) 100(10) = 64 + 32 + 4 = 2^6 + 2^5 + 2^2 = 1100100(2)
Б) 187(10) = 2*64 + 7*8 + 3 = 2*8^2 + 7*8 + 3 = 273(8)
В) 2572(10) = 10*256 +0*16 + 12 = A0C(16)
Г) 1458(10) = 2*625 + 125+ 3*25 +5+3 = 2*5^4 + 5^3 + 3*5^2 + 5 + 3 = 21313(5)
Д) 53(10) = 27 + 2*9 + 2*3 + 2 = 3^3 + 2*3^2 + 2*3 + 2 = 1222(3)
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
n= 37
1891675820705153808241239602722999673157373132800000000