Вопрос задан 09.09.2020 в 14:50. Предмет Информатика. Спрашивает Llorens Natasha.

Помогите пожалуйста!!!! Напишите программу на языке Паскаль через цикл repeat, которая вычисляет

сумму:а)первых n натуральных чиселб)квадратов первых n натуральных чиселв)всех чётных чисел в диапазоне от 1 до nг)всех двузначных чисел
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Программа на языке Паскаль для вычисления суммы

а) Первых n натуральных чисел:

```pascal program SumOfNaturalNumbers; var n, i, sum: integer; begin write('Введите значение n: '); readln(n); sum := 0; for i := 1 to n do begin sum := sum + i; end; writeln('Сумма первых ', n, ' натуральных чисел: ', sum); end. ```

б) Квадратов первых n натуральных чисел:

```pascal program SumOfSquares; var n, i, sum: integer; begin write('Введите значение n: '); readln(n); sum := 0; for i := 1 to n do begin sum := sum + i * i; end; writeln('Сумма квадратов первых ', n, ' натуральных чисел: ', sum); end. ```

в) Всех четных чисел в диапазоне от 1 до n:

```pascal program SumOfEvenNumbers; var n, i, sum: integer; begin write('Введите значение n: '); readln(n); sum := 0; for i := 1 to n do begin if i mod 2 = 0 then begin sum := sum + i; end; end; writeln('Сумма всех четных чисел в диапазоне от 1 до ', n, ': ', sum); end. ```

г) Всех двузначных чисел:

```pascal program SumOfTwoDigitNumbers; var i, sum: integer; begin sum := 0; for i := 10 to 99 do begin sum := sum + i; end; writeln('Сумма всех двузначных чисел: ', sum); end. ```

Вы можете скопировать каждую программу в среду разработки Паскаля и запустить, чтобы получить результат.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

а) Первые n натуральных чисел можно вычислить следующим образом:

```pascal program SumOfNumbers; var n, i, sum: integer; begin writeln('Введите число n:'); readln(n); sum := 0; for i := 1 to n do begin sum := sum + i; end; writeln('Сумма первых ', n, ' натуральных чисел равна ', sum); end. ```

б) Квадраты первых n натуральных чисел можно вычислить след

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос