99 баллов,Напишите пожалуйста программу в Паскаль abc , Медведь, впадая в зимнюю спячку,...

Question

99 баллов,Напишите пожалуйста программу в Паскаль abc ,
Медведь, впадая в зимнюю спячку, весил 200 кг. Каждый день во время сна он худеет на 1700г. Через сколько дней медведь проснется, если условием для выхода из зимней спячки является снижение веса на 50% от первоначального? Использовать цикл While.

Answer 1

Program n1;
var t,a: real;
k: integer;
begin
a:=200;
k:=0;
t:=a;
while(t>a/2) do
begin
t:=t-1.7;
k:=k+1;
end;
write('через ',k,' дней');
end.

Comments

спасибобольшое