В первый день строительства Колизея работал один рабочий и уложил 100 камней. Каждый последующий день рабочих становилось больше на один и каждый приносил на 1 камень больше, чем предыдущий. Через сколько дней был построен Колизей, если для его постройки нужно х камней Сделать в паскале с репитом!!!!!

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program ColosseumConstruction;
var
totalStones, stonesNeeded, stonesPerDay, day, workers: integer;
begin
totalStones := 0;
stonesNeeded := 100; // кол-во камней для постройки
stonesPerDay := 1; // начальное кол-во камней, которое укладывает рабочий
day := 1;
workers := 1; // начальное кол-во рабочих
repeat
totalStones := totalStones + workers * stonesPerDay;
if totalStones >= stonesNeeded then
break;
workers := workers + 1;
stonesPerDay := stonesPerDay + 1;
day := day + 1;
until totalStones >= stonesNeeded;
writeln('Колизей был построен за ', day, ' дней');
end.

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