Var s : String;
Begin
s:='конкурс';
Writeln(s);
Writeln(s[6]+s[5]+s[3]+s[2]);
Writeln(copy(s,4,2)+s[7]+s[2]+s[1]);
end.
Ответ:
204 800 бит
Объяснение:
16×32=512строк
512×25=12 800 символов
12 800×16=204 800 бит
если я правильно понял , что тебе нужно то ответ правильный (надеюсь)
Ну по скольку рещение не нужно, то ты правильно решил:
Искомое минимальное количество солдат в части= НОК-1.
НОК берем от количества колонн при каждом построении. Все таки немного напишу:
(Х+1)/Ki, (X+1) должен делиться на все Ki, значит минимально будет НОК.
Program pr1;
var x,y, nod:integer;
begin
readln(x,y);
repeat
if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln('НОД=', nod);
<span>end.
program pr2;
var i,n,sum:integer;
begin
readln(n);
sum:=1;
for i:=1 to n do
if i mod 2 = 0 then inc(sum,i);
writeln(sum);
<span>end.</span></span>