Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
kucharin
22.06.2022 08:24 •
Информатика
На написание программы в pascal. дано целое число n (> 0). найти сумму n*2+(n+1)*2+(n+2)*2++(2*n)*2
Ответ:
mintbouquet
11.08.2020 11:56
program t;
var n, s, i: integer;
begin
readln(n);
s:=0;
for i:=n to 2*n do s:=s+i*2;
writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dan1yar2255
08.04.2020 18:58
с информатикой) Имеется строка,содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. Программу нужно...
melongemma
13.08.2021 01:13
Какие виды данных может содержать ячейка ? какова разница между значениями и формулами?...
бобр04
27.05.2020 22:41
1. запишите имя любого файла, с трехсимвольным расширением, который принадлежит группе файлов ut? a.f* 2. треугольник задан координатами вершин. составить программу...
Artemik125
27.05.2020 22:41
Как определить для какого значения x истинно высказывание: ¬((x 3) → (x варианты ответов x=1, x=2, x=3, x=4...
Nenormalnyi
08.08.2022 22:15
Создайте программу , которая формирует массив из шестнадцати случайных целых от -20 до 20 и находит элементы с нулевыми значениями...
janelens
08.08.2022 22:15
Составьте программу которая формирует массив из 16-ти случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями...
МИЛ567
08.08.2022 22:15
Составить блок схему и написать программу для нахождения функции : y= {15x+a; x =10; a =-3; x^(2)+ корень из а; х =9; а 5;...
Ameya
29.08.2022 04:32
Как из H2 получить O2 (цепочка реакций)...
soykaksyu
29.08.2022 04:32
Найти независимые производные и независимые дифференциальные уравнения следующих функций....
школа21002100
15.09.2020 18:09
Выполнить летературный перевод этого произведения....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
program t;
var n, s, i: integer;
begin
readln(n);
s:=0;
for i:=n to 2*n do s:=s+i*2;
writeln(s)
end.