Войти Регистрация Спроси ai-bota

Составить программу вычисления сумм от 1 го до n

Нажмите на рекламу ниже и сразу увидите ответ

↓

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

bandit12341

13.01.2023 13:07

Жили четыре друга. у них были имена жыли четыре друга. у них были имена альберт, карл, дитрих и фридрих. фамилии друзей такие же, что и имена, только так, что ни у кого из них...

davidegorov19

13.01.2023 13:07

Дано целое число n. выведите следующее за ним четное число. при решении этой нельзя использовать условную инструкцию if и циклы. пример вводвывод 7 8 8 10...

uchenik5713

13.09.2020 19:33

Нужно! pascal введите с клавиатуры одномерный массив p(t), элементами которого являются положительные и отрицательные числа. определите среднее арифметическое положительных...

niaz167361

13.09.2020 19:33

Заполнить одномерный массив целых чисел из 12 элементов случайным образом. вывести его на экран. в следующей строке вывести элементы массива, имеющие порядковые номера 2,3,4,9,12....

are0t

23.06.2022 09:35

Для самостоятельной работы: 1. имеются два числа. a) вычислите сумму и разность этих чисел, используя два оператора readln. b) перепишите программу так, чтобы использовался...

arinuhkas

23.06.2022 09:35

Составить программу для вычисления значений функции f(x) на отрезке [а, b] с шагом h(через цикл while ). результат представить в виде таблицы, первый столбец которой — значения...

2мария3

08.08.2022 06:52

Влинейном массиве вычислить сумму произведения всех пар соседних чисел....

фарангиз5

08.08.2022 06:52

Составить блок-схему и программу паскаль cоставить программу, сообщающую о возможности построения параллелограмма из отрезков x,y,z,t данные 1 , 2 , 1 , 2 можно 7 , 5 , 6 ,...

ponomariov17p01k9s

08.08.2022 06:52

Для чего используются команды цикла? как записывается команда цикла for? как в цикле записать команду присваивания, чтобы она вычисляла сумму чисел? количество? какое начальное...

polina11111334944849

02.02.2020 16:58

Паскаль 1-дано : массив целых чисел а[n]. проверьте , есть ли в нем элементы равные нулю. если есть, то найдите номер первого из них, те наименьшее i, при котором а[i]=0, иначе...

Ответ:

brekisbrekis

03.10.2020 00:02

Var n,i,s:integer;
begin
write('n=',n);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s=',s);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку