Вася очень любит рыбок. Он хочет купить Nr рыб. Он знает, что для того, чтобы рыбка...

Question

Вася очень любит рыбок. Он хочет купить Nr рыб. Он знает, что для того, чтобы рыбка чувствовала себя комфортно в аквариуме на нее должно приходиться не менее чем V1 литров (т.е. при V1=3, в аквариум объемом 5 литров можно посадить только одну рыбку? налив туда минимум 3 литра воды, а в аквариум объемом 6 литров уже две рыбки). У Васи есть возможность поставить только Na аквариумов дома объемом Va литров. Напишите программу, которая считает и выводит ответ на вопрос сможет ли Вася разместить всех купленных рыбок и сколько воды (минимально, в каждом аквариуме) ему понадобится. В каждый аквариум Вася наливает одинаковое количество воды. Входные данные: Натуральные числа Nr, V1, Na, Va Выходные данные: если можно разместить рыбок: минимальный необходимый объем в литрах одном аквариуме, если нет, то "NO".

Answer 1

var

Nr , V1 , Va , Na : real;

begin

 Writeln('Сколько рыбок?');

 readln(Nr);

 while(Nr

     begin

       Writeln('Некорректное число');

       Writeln('Сколько рыбок?');

       readln(Nr);

     end;

     

 Writeln('Сколько литров на одну рыбку?');

 readln(V1);

   while(V1

     begin

       Writeln('Некорректное число');

       Writeln('Сколько литров на одну рыбку?');

       readln(V1);

     end;

     

 Writeln('Требуется воды = ', V1*Nr, ' л');

 Writeln('Сколько аквариумов можно разместить?');

 readln(Na);

   while(Na

     begin

       Writeln('Некорректное число');

       Writeln('Сколько аквариумов можно разместить?');

       readln(Na);

     end;

     

 Writeln('Какой объем у аквариумов?');

 readln(Va);

   while(Va

     begin

       Writeln('Некорректное число');

       Writeln('Какой объем у аквариумов?');

       readln(Va);

     end;

     

 if (V1*Nr <= Va*Na) and (Na <= Nr) then  </p>

   begin

     Writeln('Минимальный объем (в литрах) в аквариуме = ', Va);

   end

 else

   begin

     Writeln('No');

   end;

   

end.