Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
минам2003
01.06.2021 05:05 •
Информатика
(pascal) дан массив целых чисел из 8 элементов. найти сумму квадратов последних шести элементов
Показать ответ
Ответ:
Aikaid
19.08.2020 12:51
//Pascal ABC.NET v3.0 сборка 1111
Var
ar:array[1..8] of integer;
s:decimal; //Можно заменить на real
i:integer;
begin
for i:=1 to 8 do
readln(ar[i]);
for i:=3 to 8 do
s:=s+sqr(ar[i]);
writeln(s);
end.
Пример ввода:
1
2
...
8
Пример вывода:
199
0,0
(0 оценок)
Популярные вопросы: Информатика
kristinkalubaya
13.12.2020 12:29
ть Пайтон Обери особливості надання імен змінним1) Для розуміння програми потрібно використовувати україномовні назвизмінних2) Назва змінної не може розпочинатися з цифри3)...
Vanya2155
22.04.2022 04:08
Составить программу для ввода целочисленного массива из 10 чисел с клавиатуры и вывода суммы его элементов на экран. формат ввода: a[1] a[2] a[3] a[10] - числа формат вывода:...
1988katerinkam
19.12.2021 12:05
20. для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в...
mailrujl
15.09.2021 18:40
50 сделайте про биоритмы по информатике в экселе...
mariyakarimova2
27.06.2022 09:32
На клавиатуре вводного устройства имеется всего 4 клавиши- красаня, зеленая, синяя и желтая. как с их ввести 10 разных символов, если вы должны всегда нажимать одно и то же...
bogdantanya20171
07.08.2021 10:10
1) что считается верховным болото? 2) что понимается под типом болот 3) что выражает собой торф? 4) что является озёрным краем? 5) что такое водохранилище? 6) каковы виды...
theaziimut
07.08.2021 10:10
Когда люди стали заниматься земледелием...
kukuruza2001
07.08.2021 10:10
1. вставьте в предложения сильные глаголы, данные в скобках, в правильной форме. 1. wann … du heute in die universität (kommen)? 2. warum … dir diese sprache (gefallen)? 3....
Chelovekkkkkkk1701
07.08.2021 10:10
Вравностоонем треугольнике авс длина стороны 3 см, проведена медиана ад. найти ав * ав...
Kristina8478
07.08.2021 10:10
Определите принадлежность данных животных к членостоногим или хордовым...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
ar:array[1..8] of integer;
s:decimal; //Можно заменить на real
i:integer;
begin
for i:=1 to 8 do
readln(ar[i]);
for i:=3 to 8 do
s:=s+sqr(ar[i]);
writeln(s);
end.
Пример ввода:
1
2
...
8
Пример вывода:
199