1. Информатика
  2. Составить программу для

Составить программу для решения следующих задач. Напишите программу, которая вычисляет сумму:

1) первых n натуральных чисел;

2) квадратов первых n натуральных чисел;

3) всех чётных чисел в диапазоне от 1 до n;

4) всех двузначных чисел ОЧЕНЬ НАДО
​

КореневаАня КореневаАня    2   06.04.2020 14:55    0

Ответы
Evgen2100zzz Evgen2100zzz  12.10.2020 18:06

begin

 var n := ReadInteger('n =');

 1.To(n).Sum.Println;

 SeqGen(n, i -> i * i, 1).Sum.Println;

 Range(2, n, 2).Sum.Println;

 Range(10, 99).Sum.Print

end.


Составить программу для решения следующих задач. Напишите программу, которая вычисляет сумму: 1) пе
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mashamalenkova mashamalenkova  02.06.2019 18:00
Составить программу, имитирующую игру поле чудес. надо, вообще не догоняю(...
666Dim 666Dim  02.06.2019 18:00
1. автомобиль ехал несколько часов со скоростью v1 км/час, затем несколько часов со скоростью v2 км/час. значения времени и скорости вводятся с клавиатуры. сколько км он...
taniash052005 taniash052005  02.06.2019 18:00
Подробно решить : перевод одной системы в другую 14 ( десятичная система) в 16стеричную...
mashakaer mashakaer  02.06.2019 18:00
Внимательно рассмотрите числа , расположенные в каждом из рядов , и определите, какое число является лишним . будьте готовы обосновать свой выбор а) 2,3,6,7,11. б) 18,12,3,29,45,28....
Nymeria Nymeria  02.06.2019 18:00
Определите, что будет напечатано в результате работы следующей программы: var m, n : integer; begin m : = 50; for n : = 1 to 7 do m : = m – 7; write(m); end....
Kiber04ек Kiber04ек  02.06.2019 18:00
Составьте программу для решения следующей с использование цикла с предусловием: «выведите все точные квадраты натуральных чисел, не превосходящие данного числа n»....
nikzyryanov02 nikzyryanov02  02.06.2019 18:00
Составьте программу для нахождения среднего арифметического двузначных чисел, кратных 3, с использованием параметрического цикла. ответ прикрепите в виде файла в среде...
semakina97 semakina97  02.06.2019 18:00
Перечислите те значения, которые будет принимать переменная цикла в данном фрагменте программы. program d; var a, b, c: integer; begin for c: = 1 to 5 do begin a: = a+...
stanislavvolk8 stanislavvolk8  02.06.2019 18:00
Запишите условие на языке паскаль для данного словесного алгоритма. если величина х превышает значение y², то вычислить корень квадратный из числа х, иначе число х уменьшить...
Ринаqq Ринаqq  02.06.2019 17:50
Укажите последовательность действий для создания заголовка текста...

Популярные вопросы