ответ на Python:
a = list(map(int,input().split())) #Принимаем массив из одной строки
s = 0 #Счётчик
for i in range(len(a)-2): #Проход по массиву до пред-предпоследнего элемента
if a[i] == (a[i+1] + a[i+2]) / 2: # Проверяем, является ли этот элемент средним арифметическим 2-х следующих
s += 1 #Прибавляем счётчик
print(s) #Выводим ответ
Или вот:
a = list(map(int,input().split()))
s = 0
for i in range(len(a)-2):
a1 = a[i+1]
a2 = a[i+2]
if a[i] == (a1 + a2) / 2:
s += 1
print(s)
Объяснение:
a) Сканер - исполнитель, выполняет активную функцию копирования
b) Альбом - хранилище информации
с) Луна - просто объект
d) Книга - хранилище информации
описания, представления алгоритма в виде определенных слов естественного языка, которым придается значение действия, или команды для исполнителя - это...a) Алгоритмический язык - инструмент описания алгоритма, для создания одного из его представлений. Является подмножеством ЯП.
b) Язык программирования - инструмент для описания кода программ - одного из видов представлений алгоритма.
c) Блок-схема - одно из видов представления алгоритма, в виде блоков и символов.
d) Естественный язык - слишком широкоспециализированный
3. Что означает свойство алгоритма - результативность?1) алгоритм должен состоять из команд, однозначно понимаемых исполнителем - (доступность)
2) разбиение алгоритма на конечное число простых шагов - (конечность)
3) выполнение всех команд алгоритма должно привести к определенному результату - алгоритм - представление процесса переработки, трансформации информации. Мы принимаем информацию на входа, преобразуем её и выдаём на выходе. Если полностью убрать из этой последовательности выдачу результата (в любом проявлении), то зачем нам нужен алгоритм? Правильно, он бесполезен.
4) каждая команда должна быть описана в расчете на конкретного исполнителя
Для Pascal ABC
uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;
Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.