
Помогите пожалуйста!!!! Напишите программу на языке Паскаль через цикл repeat, которая вычисляет
сумму:а)первых n натуральных чиселб)квадратов первых n натуральных чиселв)всех чётных чисел в диапазоне от 1 до nг)всех двузначных чисел

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

Программа на языке Паскаль для вычисления суммы
а) Первых 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. ```
Вы можете скопировать каждую программу в среду разработки Паскаля и запустить, чтобы получить результат.



а) Первые 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 натуральных чисел можно вычислить след


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








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili