Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.
Ответ: 285. Вот решение, там виден ответ
(пирожное/выпечка) = (пирожное) + (выпечка) - (пирожное&выпечка)
(выпечка) = 14200 - 9700 + 5700 = 10200
Это можно рассмотреть как: "Для i от 10 до -10 выполнить(делать) S=S+1;
Следовательно посчитав " на пальцах"(так проще), находим, что тело цикла выполнится 21раз(0 тоже число)