[2, "11111"]
[3, "1011"]
[4, "133"]
[5, "111"]
[6, "51"]
[7, "43"]
[8, "37"]
[9, "34"]
[10, "31"]
[11, "29"]
[12, "27"]
[13, "25"]
[14, "23"]
[15, "21"]
[16, "1f"]
[17, "1e"]
[18, "1d"]
[19, "1c"]
[20, "1b"]
[21, "1a"]
[22, "19"]
[23, "18"]
[24, "17"]
[25, "16"]
[26, "15"]
[27, "14"]
[28, "13"]
[29, "12"]
[30, "11"]
[31, "10"]
[32, "v"]
[33, "v"]
[34, "v"]
[35, "v"]
[36, "v"]
Ответ 8,12,24
А) 173,3 ≡ 1) 0, 1733*10^3
Б) 1, 733 ≡ 3) 0,1733*10^1
В) 0, 1733 ≡ 2) 0,1733*10^0
Г) 0, 0001733 ≡ 4) 0, 1733*10^-3
Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(45,15,85); a.Println;
Writeln('Индексы нечетных элементов');
a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1.IsOdd).
Select(x->x.Item2).Println;
end.
<u><em>Тестовое решение:</em></u>
72 49 49 67 56 85 62 36 53 15 25 33 48 63 71 38 43 57 17 78 41 31 56 55 75 71 54 61 46 63 33 53 68 30 28 28 65 25 68 24 51 44 80 54 32
Индексы нечетных элементов
2 3 4 6 9 10 11 12 14 15 17 18 19 21 22 24 25 26 28 30 31 32 37 38 41
1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.