Результат исполнения программы число 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]...
Результат исполнения программы число 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.
Гость
Ответ(ы) на вопрос:
ГостьЕсть массив из 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
Не нашли ответ?
Похожие вопросы