Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 Вообщем если не понятно, т
Сергей1959москва
Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do
read(a[i]);
for i:=1 to 17 do
if odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
for i:=1 to 17 do
if not odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
end.
log2 <span>16 777 216 = 24 бит = 3 байта на 1 пиксель</span>
306 луидоров.
Таблицу начинаем заполнять с "Арабеллы". Вначале предполагаем, что на нее требуется все, что можно закупить. Но по условию на "Клото" капитан хочет закупить парусину вместо мушкетов, следовательно, парусину на "Арабеллу" не закупают. Аналогично, на "Элизабет" будут закупать порох - он также не закупается для "Арабеллы". Теперь можно заполнять таблицу для остальных кораблей.
Var
s: string;
n: byte;
begin
readln(s);
foreach i: char in s do
if (Char.IsDigit(i)) then
n += 1;
writeln(n);
end.
------------------------
var
s: string;
n: byte;
begin
readln(s);
for i: byte := 1 to length(s) do
if (s[i] in ['0'..'9']) then
n += 1;
writeln(n);
end.