Результат исполнения программы число 100, нужно найти какое число ввели

var a: array [1 ... 8] of integer;

i, sun: integer;

begin

ReadIn (a[1]) ;

sum:=0;

for i : = 2 to 8 do

a[i] : = a[i-1]+3;

for i:=8 downto 1 do

sum: = sum + a[i];

writeln (sum) ;

end.

Question

Информатика

Егоня

30 апреля, 21:50

Результат исполнения программы число 100, нужно найти какое число ввели

var a: array [1 ... 8] of integer;

i, sun: integer;

begin

ReadIn (a[1]) ;

sum:=0;

for i : = 2 to 8 do

a[i] : = a[i-1]+3;

for i:=8 downto 1 do

sum: = sum + a[i];

writeln (sum) ;

end.

+3

Ответы (1)

Знаете ответ на вопрос?

Лилюха · Answer 1

Есть массив из 8 элементов. Вводится одно число - первый элемент массива. Далее расчитываются остальные элементы массива, каждый из которых больше предыдущего на 3. Так получается арифметическая прогрессия с шагом 3, с 8 элементами, неизвестным первым числом и суммой 100. Далее берем формулу суммы ариф. пр. S=n (a1+an) / 2=n (2a1+d (n-1)) / 2 выражаем а1 = (2S/n-d (n-1)) / 2, подставляем и получаем (2*100/8 - 3 (8-1)) / 2=2. Ответ: 2