Боксер тяжелого веса решил соревноваться в другой весовой категории. Через сколько дней он похудеет со 100 до 80 кг, если в день он может сбрасывать 1% своего веса?
Простейшая задачка. Написал программу:
program bokser;
uses crt;
var k : integer;
x : real;
begin
clrscr;
x:=100;
writeln('Боксёр решил соревноваться в другой категории. Он похудеет через: ');
while x<>80 do begin x:=(x-(x/100)); k:=(k+1); end;
write(k);
end.
x<>80Заменить на >= или > ?
Вещественные числа вообще сравнивать бесполезно. Они всегда разные. В том числе и из-за погрешностей расчёта и хранения.