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

Составить программу,которая вычисляет сумму от -10 до n

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

↓

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

Sergei12121

14.02.2020 02:24

Нарисуйте Блок-Схему, по данной программе Паскаль. Программа: const n=6; var a:array[1..n,1..n] of integer; i,j,mn,s:integer; begin randomize; for i:=1 to n do begin for j:=1...

Ninell98

16.12.2022 00:29

ТАБЛИЦА ИСТИННОСТИ ДЛЯ ИНФОРМАТИКОВ Составить таблицу истинности для логического выражения F и соответствующую функциональную схему ЛЭ, изобразить временные диаграммы, характеризующих...

190520041

01.02.2021 07:27

HTML5 Как поставить элемент на середину (одинаковое расстояние и справа и слева)? Пример:...

МенязовутКатяЗвога

09.06.2020 03:55

50 ! начав тренировки, спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. какой суммарный путь пробежит спортсмен за...

shapo2005

28.05.2022 06:49

Если в прямоугольной матрице а размера m*n меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. в противном...

Romlik

28.05.2022 06:49

Вклассе 35 учеников, каждый из них играет в футбол, волейбол, баскетбол, а некоторые из них играют в два или даже три из этих видов спорта. 24 ученика играют в футбол, 18 – волейбол,...

mr7ka

27.04.2022 04:45

Особенности языков символического кодирования?...

jasmkal

21.05.2021 13:33

Дана последовательность целых чисел, оканчивающаяся числом −1. необходимо определить, присутствует ли в последовательности хотя бы одна пара одинаковых «соседних» чисел. число...

5v09

18.03.2022 04:39

Написать программу для нахождения простых чисел большого размера. для хранения цифр чисел использовать массивы. под большим размером подразумеваются 50-ти значные числа. использовать...

Селена451

01.12.2020 06:24

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

Ответ:

andreevik2003

24.04.2020 01:57

Var i,b,n:integer;
begin
readln(n);
for i:=-10 to n do
b:=b+i;
writeln(b);
end.

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

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

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