Question

Помогите с информатикой срочно пж

Answer 1

Задание 7

Program zadacha; const n=365;

var

i,d,ves:integer;

begin

ves:=200000; // 200кг=200.000г весил до спячки

writeln('Половина веса медведя = ', ves/2,' грамм');

 while (ves>ves/2) do begin

   ves:=ves-1700; d:=d+1;

 end;

writeln ('Медведь проснётся через ', d,' дней');

end.