сначала 10 если кучки по 5 равны то 2 оставшиеся
Const
start=12; //наименьшее подходящее число
max=100; //первое число, идущее после всех двузначных
step=3; //разность между подходящими числами
var
x,i:integer;
begin
x:=start;
i:=0;
while x<max do begin
i:=i+1;
x:=x+step;
end;
writeln('Количество искомых чисел: ',i);
end.
X := 47
z := 1
i := 0
1 итерация цикла:
z := (1+47/2)/2 = 12,25 (округляем, получаем 12,2)
i := 0 + 1 = 1
2 итерация цикла:
z := (12,2 + 47/2)/2 = 17,85 (округляем, получаем 17,8)
i := 1 + 1 = 2
3 итерация цикла:
z := (17,8 + 47/2)/2 = 20,65 (округляем, получаем 20,6)
i := 2 + 1 = 3
4 итерация цикла:
z := (20,6 + 47/2)/2 = 22,05 (округляем, получаем 22)
i := 3 + 1 = 4
i < 4 - условие не выполняется, выводим 22
Ответ: 22