Почему ввыдат 96 дней, вместо нужных 7?

Question

program bolnoi; 
var t:integer; k:real; 
begin 
 t:=0; k:=50; 
 while k>=12 do 
 begin 
 k:=k-2*20/100; 
 t:=t+1; 
 end; 
 write('Через',t,'дней'); 
end.

Нтон · Accepted Answer

Уменьшение коэфицента "К" слишком мало... т. е. к=50 потом к=40.6 = 40.2 и так далее, пока к станет меньше 12 пройдет цикл 96 раз. 
Скорей всего оишбка в условии к. Напиши задание

Екатерина Асатрян · Answer

сначала "т" равняется 49,6, потом - 49,2 и т. д. до 12-ти. до фига циклов получается...

Екатерина · Answer

Потому что (50-12)/0.4=95