Ну человек обрабатывает информацию которую ему выдаёт компьютер и наоборот
Var
a,b,i:integer;
Begin
Write('Введите А и В ');
Read(a,b);
for i:= a to b do
writeln(a+(i-a),'^2 = ',sqr(i));
End.
1)<span>110101001
</span>2)100000000
3)1101010100
4)10011011011
5)101000001001
6)1000111011000
7)11000100011000
8)101000011
9)<span>10110000</span>
Тут надо было что-то написать, т.к. пустой ответ система не принимает)
Эта программа подсчитывает сумму первой половины элементов массива. Т.е. сумма считается для тех элементов, индекс которых (i) меньше n-i.
В данном случае n=10, => максимальное i для которого будет выполнен подсчет = 5 (5<=10-5)
Т.к. индексация начинается с нуля, - берем сумму 6-ти первых чисел:
0+1+2+3+4+5=15
Ответ: 3) 15