Через сколько минут в бульоне будет 1000 бактерий? - Pascal ABC

  1. 16. Из воздуха в питательный бульон попала бактерия и начала размножаться. Каждую минуту каждая бактерия рождает ещё одну. Но каждые 5 минут третья часть бактерий погибает. Кроме того, каждые 7 минут в бульон попадает из воздуха ещё одна бактерия. Через сколько минут в бульоне будет 1000 бактерий? Сколько бактерий к тому времени погибнет?


textual

Код к задаче: «Через сколько минут в бульоне будет 1000 бактерий? - Pascal ABC»

Var
  B,i : Integer;
 
Begin
  i:=1; B:=1;
  Repeat
    Writeln(i,' ',B);
    Inc(i);
    If i mod 5 = 0 then B:=B*2-(B div 3) else B:=B*2;
    If i mod 7 = 0 then Inc(B);
  Until B>=1000;;
  Writeln(i,' ',B);
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.000 из 5



Похожие ответы
  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Создайте еще несколько новых графических процедур, которые бы расширили возможность стандартной библиотеки (ромб, параллелограмм, и т.п.) pascalABC

  1. Ввести одно число и запомнить его. Дальше вводятся 10 чисел. Программа должна найти сколько раз первоначальное число встречается среди набираемых и номер первого. Например, ввели первое число 5, далее вводим 7 5 1 7 2 4 5 5 6 0. Программа должна выдать "Число 5 встречается 3 раза, первый раз номер 2".

  1. Составить программу, которая заполняет одномерный массив из 20 элементов случайными целыми числами от 1 до 99, а затем определяет, сколько в массиве имеется простых чисел (простым числом называется такое, которое делится только на единицу или само на себя).

  1. Задание В заданном тексте определить,сколько раз встречается каждое различное двухбуквенное сочетание. (Как я понял, это определёННый,феРРум,кООператив...) (ну только разные) И как вообще для таких "штук" рисуется блок схема,немного недопонял.

  1. С клавиатуры вводится символьная строка длиной.определите, сколько раз встречается в строке каждый из входящих в неё символов

  1. Начальный вклад в банке равен 1000 рублей. Через месяц размер вклада увеличивается на Р процентов от имеющейся суммы (Р – вещественное число, 0