Question

1. Из полностью наполненной цистерны, ёмкостью S литров, начинает выливаться вода. В каждую секунду из бочки выливается 6% находящейся в бочке воды. Сколько литров воды останется в бочке через 20 секунд.

Answer 1

Код Pascal:

Var
   S:real;
   i:byte;
Begin
Write('S = ');ReadLn(S);
For i:= 1 to 20 do
    S:=S*0.94;
WriteLn(S:0:3)
End.