Написать программу паскаль

Question

Написать программу паскаль

Александр Иванов Ученик (109), на голосовании 1 неделю назад

Составьте программу, которая принимает с клавиатуры целое число, а затем выводит на экран последующие ему целые числа, пока сумма этих чисел не превышает квадрата введённого числа. Проверка ввод: 5 вывод: 6, 7, 8, 9

Answer 1

program NextIntegers;

var
n, sum, current: Integer;

begin
// Запрашиваем ввод целого числа
Write('Введите целое число: ');
ReadLn(n);

// Инициализируем переменные
sum := 0;
current := n + 1; // Начинаем с числа, следующего за введённым

// Выводим последующие числа, пока сумма не превышает квадрат введённого числа
while sum <= n * n do
begin
sum := sum + current; // Добавляем текущее число к сумме
Write(current, ' '); // Выводим текущее число
Inc(current); // Переходим к следующему числу
end;

WriteLn; // Переход на новую строку после завершения вывода
end.