Рассмотрим фрагмент поблочно.
<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>
Ответ:Av(AvB)aB-++=-=100
Объяснение:это отличный ответ)))))
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>