Var
a,i,n:longint;
begin
a:=10;
for i:=1 to 7 do
begin
inc(n,a);
inc(a,a div 10);
end;
writeln(n);
end.<span>
</span>
174(1):
Переменная s = 1
Далее каждый повтор цикла к S прибавляется 1. Цикл повторяется 10 раз, т.к. i изменяется от 1 до 10 с шагом в 1. Получается, к переменной S десять раз была прибавлена единица. Изначально S была равна 1, после десяти прибавлений единицы стала равна 11.
Ответ 11
174(2)
S изначально равна 1, каждый повтор цикла сначала к S прибавляется 1, а затем выводится значение S.
То есть в первом повторе S стала равна 2, и выводится на экран 2, во втором повторе S стала равна 3, и выводится 3. Цикл выполняется 10 раз, программа выведет:
2
3
4
5
6
7
8
9
10
11
X:= 0 x=0 y=0
x:= x+1 x=1 y=0
y:= x x=1 y=1
<span>x:= 2*y+2*x x=4 y=1</span>
Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))