Номер §4.5 № 13

№ (§.). Требуется найти произведение двух натуральных чисел x и y без операции умножения. По определению умножения — сумма y одинаковых слагаемых x. Поэтому y раз прибавляем x к первоначально нулевому z.

var x, y, z, i: integer;
begin
  readln(x, y);
  z := ;
  for i :=  to y do z := z + x;
  writeln(z)
end.

Например, при x = , y = получаем , то есть .

№ (§.). Население сначала составляет человек и ежегодно увеличивается на %. Новый размер равен прежнему плюс % прежнего; это можно вычислить как people := people * .. Повторяем ровно три раза и фиксируем значение после каждого года.

var i: integer;
    people: real;
begin
  people := ;
  for i :=  to  do
  begin
    people := people * .;
    writeln(i, ': ', people::)
  end
end.

Год	Численность по расчёту

№ (§.). Первоначально есть одна бактерия. Через каждую минуту число бактерий удваивается, поэтому команда count := count * выполняется десять раз.

var minute, count: integer;
begin
  count := ;
  writeln(': ', count);
  for minute :=  to  do
  begin
    count := count * ;
    writeln(minute, ': ', count)
  end
end.

| Минута | | | | | | | | | | | |
|---:|---:|---:|---:|---:|---:|---:|---:|---:|---:|---:|
| Бактерии | | | | | | | | | | | |

Следовательно, через три года расчётная численность населения равна , а через десять минут будет бактерии.