Question

Здравствуй! Вот еще задача на Паскале: "Известна сумма номеров страниц книги, определить номер последней страницы. Например, сумма номеров стр = 55, последняя страница 10". Т.е. вводишь сумму - получаешь номер последней стр.

Answer 1

Ответ:

• var i, sum: integer;
• begin
• read(sum);
• while sum > 0 do
• begin
• i := i + 1;
• sum := sum - i;
• end;
• write(i);
• end.

Пример работы:

Answer 2

Привет! Я могу помочь тебе решить эту задачу на языке Паскаль. Вот пример решения:

pascalCopy code
program LastPageNumber;
var
  sum, lastPage: Integer;
begin
  Write('Введите сумму номеров страниц: ');
  Readln(sum);

  lastPage := 0;
  while sum > 0 do
  begin
    lastPage := lastPage + 1;
    sum := sum - lastPage;
  end;

  Writeln('Номер последней страницы: ', lastPage);
end.

В этой программе мы считываем сумму номеров страниц с помощью Readln, затем инициализируем переменную lastPage нулевым значением. Затем мы используем цикл while, чтобы увеличивать значение lastPage и вычитать его из суммы до тех пор, пока сумма не станет меньше или равной нулю. После завершения цикла мы выводим значение lastPage на экран с помощью Writeln.

Надеюсь, это поможет! Если у тебя возникнут еще вопросы, не стесняйся задавать.