Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.
Вообще черные бабочки вызывают испуг. Если вопрос относиться к сравниванию, то на летаюшего жука.
a=100
b=30
a=100-b*3(100-90)
(a=10)
a не больше b следовательно
c=b-a
c=30-10
c=20
В результате выполнения этой программы будет напечатан 0
Если трассировать программу по шагам то мы увидим что s меняется в цикле вот так
s1=-4
s2=12
s3=-24
s4=24
Начиная с 5 шага получаем (5-5)*s т.е 0 и далее чтобы мы на 0 не умножали так и будет 0