для обычного разведения золотых рыбок нужно,чтобы на каждую рыбку в аквариуме

Для нормального разведения золотых рыбок необходимо,чтобы на каждую рыбку в аквариуме приходилось не наименее 3-х л. воды.По знаменитым объему аквариума и количеству рыбок,в нем содержащихся найти, является ли аквариум перенаселенным или нет, и указать количество рыбок,которых в случае перенаселенности нужно поместить в иной аквариум либо,напротив, можно еще разместить в аквариуме.

Задать свой вопрос
1 ответ
Var n,v,k:integer;
begin
writeln('Введите объём аквариума(в литрах)');
readln(v);
writeln('Введите количество рыбок');
readln(n);
if vgt;=(3*n) then
begin
k:= (v div 3) -n;
writeln('Аквариум не является перенаселённым,в нём можно ещё расположить ',k,' р.');
end
else begin
k:=n- (v div 3);
writeln('Аквариум является перенаселённым,нужно поместить ',k,' р. в иной аквариум');
end;
end.
Светлана Карнадуд
плззз http://znanija.com/task/6277840
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт