Question

Составить прогу в Паскале для решения задачи: Строитель положил в первый день 100 кирпичей. Каждый следующий день он увеличивал количество кирпичей на Z процентов от предыдущего дня (Z — вещественное, 10< Z < 40). По данному Z определить, после какого дня суммарное количество кирпичей за все дни превысит 1000, и вывести найденное количество дней D (целое) и суммарное количество кирпичей К (вещественное число).

Answer 1

program stroitel;

 var k, d, z: real;

 begin  

   k:=100;

   d:=1;

   writeln ('Введите процент');

   readln (z);

   repeat

     k:=k+((k/100)*z);

     d:=d+1;

   until k>1000;

   writeln('кирпичей- ',k,'дней- ',d);

 end.

Answer 2

Вот программа на Pascal, которая решает данную задачу:

pascalCopy code
program Bricks;

var
  Z: real;
  Day, TotalBricks: integer;

begin
  writeln('Введите значение Z (10 < Z < 40): ');
  readln(Z);

  if (Z <= 10) or (Z >= 40) then
  begin
    writeln('Z должно быть в диапазоне от 10 до 40.');
    exit;
  end;

  TotalBricks := 100; // Начальное количество кирпичей
  Day := 1; // Текущий день

  while TotalBricks <= 1000 do
  begin
    TotalBricks := TotalBricks + Trunc(TotalBricks * Z / 100); // Увеличение количества кирпичей
    Inc(Day);
  end;

  writeln('После ', Day, ' дня(ей) суммарное количество кирпичей превысит 1000.');
  writeln('Суммарное количество кирпичей: ', TotalBricks);
end.

Просто введите значение Z (которое должно быть в диапазоне от 10 до 40), и программа определит после скольких дней суммарное количество кирпичей превысит 1000, и выведет найденное количество дней D и суммарное количество кирпичей К.