tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число n и вводятся
Дано натуральное число n и вводятся числа a1, a2 , a3 , …, an. найти сумму их кубов в паскале
Emro
3 26.07.2019 07:50
1
Ответы
Valya55555555
03.10.2020 13:21
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum)
end.
Тестовое решение:
n= 6
Вводите числа: 6 3 5 2 4 1
Сумма кубов 441
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Маринааамурр
22.03.2020 16:26
1. Скільки байтів потрібно для двійкового кодування 16-ти колірного растрового зображення розмірами 200 х 150 пікселів? 2. Ярлик на робочому столі - це растрове зображення...
dgolsky07
22.03.2020 16:26
Для какого наименьшего целого неотрицательно числа A выражение (5 · x + 2 · y ≠ 32) ∨ (x A − 8) ∨ (y A + 1) тождественно истинно (то есть принимает значение 1 при любых...
рттири
13.05.2021 11:04
пройти тест по информатике ...
applevip
24.04.2020 20:15
Представьте числа в памяти компьютера 1) 113, формат 1 байт без знака 2) -350, формат 2 байта со знаком 3) 120, -99 -128, формат выбрать самостоятельно 4) 500,-67, -215,...
moxowa81
09.07.2019 19:50
Написать программу четности и нечётности числа. на языке паскаль...
anadtadiamoroso
09.07.2019 19:50
Сее организуется многоуровневая иерархическая файловая система что это...
галина353
08.07.2019 12:10
Написать программу для нахождения произведения нечётных чисел в диапозоне от 1 до n....
Димооон04
16.03.2020 00:03
ПОКАЖИТЕ 3 ВИДА СБОКУ СПЕРЕДИ СВЕРХУ...
alyena2802
16.03.2020 00:03
всё на картинке только 2 задание...
alenadevyataya
16.03.2020 00:03
4. Берілген сөздер белгілі бірморфологиялық заңдылыққа сүйеніптізбектелген.Оқушы – жақсы – – біздің— келді - - маймаң-маймаң —және - әттеген-айКөп нүктенің орнына сәйкес...
Популярные вопросы
Решите систему подстановки: 3x+y=7 9x-4y=-7 нужно как можно быстро...
1
Длина прямоугольника равна 80 см.,его ширина составляет 80% длины.найдите...
1
Пружина под действием приклепленного к ней груза массой 5кг совершает...
2
Очем рассказ приключения тома соера 8 глава...
2
Кто является главным героем в повести шолохова судьба человека? расскажите...
3
Письмо подруге на казахском языке. до вечера заранее ) подруга! как дела?...
2
Впрямоугольнике перпендикуляры,проведены из точки пересечения диагоналей...
1
Алюминиевая проволока длиной 150 см имеет площадь поперечного сечения...
3
Соотнесите жанр произведения, сущность жанра, название произведения:...
1
Классификация сложных веществ. деления каждого класса сложных веществ...
2
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum)
end.
Тестовое решение:
n= 6
Вводите числа: 6 3 5 2 4 1
Сумма кубов 441