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

program zz1;

var n:integer; / / описываем переменную целого типа

k, s:real; / / описываем переменные не целого типа

begin

write (' введите емкость цистерны ');

read (S); / / вводим с клавиатуры число

while S > = 1 do / / организуем цикл, бока в цистерне больше 1 литра воды

begin

k:=s * 0.05; / / рассчитываем 5% от объема воды в цистерне

s:=s - k; / / вычитаем полученный объем из общего объема

n:=n + 1; / / считаем секунды

end;

write (' в бочке останется менее литра через ', n, ' секунд'); / / выводим ответ

end.