Ответ:
Я точно не знаю, но похоже:
«Дело мастера боится»
Это арифметическая прогрессия с начальным членом x и знаменателем y. Зная сумму членов (=N) можно найти количество
Решение:<span>Разделим число 513 на два ( 2 - это основание системы счисления). Делить будем с остатком, частное запишем в столбец "Част.", а остаток в столбец "Ост.". Затем полученное частное снова разделим на два и новое частное и остаток также распределим по столбцам (см. ниже). Повторять деление будем до тех пор, пока последнее частное не окажется меньше двух.</span><span><span><span>Част.Ост.</span><span>513 : 2 =256 1</span><span>256 : 2 =128 0</span><span>128 : 2 =64 0</span><span>64 : 2 =32 0</span><span>32 : 2 =16 0</span><span>16 : 2 =8 0</span><span>8 : 2 =4 0</span><span>4 : 2 =2 0</span><span>2 : 2 =1 0</span></span><span>Теперь мы можем записать число 513 в двоичной системе счисления. Для этого в старший (самый левый) разряд числа запишем последнее частное (выделено жирным), а в следующие, по порядку, разряды запишем все полученные выше остатки, беря их снизу вверх. То есть, в самом младшем разряде оказывается самый верхний остаток.</span><span>Ответ: 51310 = 1000000001<span>2</span></span></span>
Вот без массива.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadArrReal('Площади:',20);
var u:=ReadArrReal('Урожай:',20);
s.Zip(u,(x,y)->y/x).Println
end.
<u>Пример работы программы</u>
Площади: 3200 2670 1530 3040 2360 2350 1250 4150 4790 2210 4300 2950 3100 4290 3710 3790 2930 2380 4630 3760
Урожай: 55040 84639 56151 107008 83308 58045 40500 46065 148969 24310 46010 97645 102920 50193 115752 142125 82040 29988 170384 90616
17.2 31.7 36.7 35.2 35.3 24.7 32.4 11.1 31.1 11 10.7 33.1 33.2 11.7 31.2 37.5 28 12.6 36.8 24.1
Вот с массивом )))
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadArrReal('Площади:',20);
var u:=ReadArrReal('Урожай:',20);
var q:=s.Zip(u,(x,y)->y/x).ToArray; q.Println
end.
Компания CalComp в 1959 году.