Рассмотрим фрагмент поблочно.
<span>FOR i=1 TO 10
A(i)=5+i
NEXT i
Здесь в цикле для i, меняющегося от 1 до 10, в массив А помещаются значения i+5, т.е. 6, 7, 8, .. 15.
</span><span>FOR i=1 TO 10
IF (A(i)+i >12) THEN
A(i)=A(i)+ i
ENDIF
NEXT i
В этом цикле i также меняется от 1 до 10. Для всех значений </span>элементов массива, которые в сумме со своим порядковым номером в массиве (индексом) превысят 12, значение элемента будет увеличено на этот номер.
a[1]+1=6+1=7. Это число меньше 12 и a[1] остается прежним. Так же, a[2]+2=9, a[3]+3=11 и они тоже не изменятся. Начиная с a]4]+4=13 значения будут изменяться на новые и в результате мы получим семь новых значений: 13, 15, 17,... 25. Все они будут нечетными. И еще одно нечетное значение (7) имеет a[2]. Итого, <em><u>нечетные значения будут иметь 8 элементов.</u></em>
Ответ:
13
Объяснение:
Смотри , начинаем с точки А идем в точку Б .В точку Б идет одна стрелка из точки А смотрим идет 1 дорога значит и точка Б останется 1 .
потом идем в точку В идут 2 стрелки из точки А и точки В то есть в Б было 1 и в А.Итого 1+1=2 и т.д
Если хочешь по подробнее могу скинуть видео по которому я сама готовилась 2 года назад.
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
n,d1,d2,d3:integer;
begin
Write('n='); Read(n);
d1:=n div 100; d3:= n mod 10;
d2:=(n div 10) mod 10;
if (d1=d2) or (d1=d3) or (d2=d3) then Writeln('Да')
else Writeln('Нет')
end.
<u><em>Тестовые решения:</em></u>
n=123
Нет
n=121
Да
n=222
Да
Использована формула
var
f, i: longint;
begin
f := 1;
i := 2;
while f < 3669972 do
begin
f := 2 * (f + i);
i := i + 1
end;
Writeln('m=',i)
end.
Результат выполнения программы:
m=21
По второй задаче 8+6=14
Системы мира, термин, употребляемый в астрономии для обозначения представлений о строении системы небесных тел - Земля, Луна, Солнце, планеты.
Гелиоцентрическая Система,
Система сфер
<span>геоцентрическая Система
:)</span>