Какую программу на языке Паскаль нужно написать, чтобы вычислить: а) сумму первых n натуральных чисел; б) сумму

  • Фев 23, 2024
Какую программу на языке Паскаль нужно написать, чтобы вычислить:
а) сумму первых n натуральных чисел;
б) сумму квадратов первых n натуральных чисел;
в) сумму всех четных чисел в диапазоне от 1 до n;
г) сумму всех двузначных чисел.
Все эти вычисления должны быть выполнены в рамках одной программы при использовании оператора repeat.
Tarantul

Tarantul

Конечно! Вот пример программы на языке Паскаль, которая выполняет каждое из заданий (а), (б), (в) и (г) с использованием оператора repeat:

pascal

program Summation;



var

  n, i, sum, even_sum, double_digit_sum: integer;



begin

  { сумма первых n натуральных чисел }

  write("Введите значение n: ");

  readln(n);



  sum := 0;

  i := 1;



  repeat

    sum := sum + i;

    i := i + 1;

  until i > n;



  writeln("Сумма первых ", n, " натуральных чисел: ", sum);



  { сумма квадратов первых n натуральных чисел }

  sum := 0;

  i := 1;



  repeat

    sum := sum + i * i;

    i := i + 1;

  until i > n;



  writeln("Сумма квадратов первых ", n, " натуральных чисел: ", sum);



  { сумма всех четных чисел в диапазоне от 1 до n }

  write("Введите значение n: ");

  readln(n);



  even_sum := 0;

  i := 2;



  repeat

    even_sum := even_sum + i;

    i := i + 2;

  until i > n;



  writeln("Сумма всех четных чисел в диапазоне от 1 до ", n, ": ", even_sum);



  { сумма всех двузначных чисел }

  double_digit_sum := 0;

  i := 10;



  repeat

    double_digit_sum := double_digit_sum + i;

    i := i + 1;

  until i > 99;



  writeln("Сумма всех двузначных чисел: ", double_digit_sum);



end.


Итак, эта программа позволяет вычислить и вывести на экран суммы каждого из предложенных в задаче случаев. Вы вводите значение n, которое определяет количество чисел, используемых в вычислениях, и программа выводит соответствующий результат. Каждая сумма вычисляется с помощью оператора repeat, который повторяет блок кода до выполнения условия выхода из цикла. Когда i становится больше n в каждом случае, цикл завершается. При желании можно добавить проверки на ввод корректных значений n для каждой ситуации.
Знаешь ответ?
Информатика

Добрый день! Требуется переформулировать вопрос о задаче, задача по информатике. Начальные значения...
  • Ноя 28, 2023
Информатика

Сколько книг можно поместить на флеш-накопителе емкостью 120 мбайт, если размер каждой книги...
  • Дек 21, 2023

О проекте

О нас

Мы такая же школота как ты ;)

signature
znayte.com

Предметы

Задать вопрос
Привет!
hello