Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kseniy124321
03.03.2020 00:42 •
Информатика
(pascal) дан массив целых чисел из 8 элементов. найти сумму квадратов последних шести элементов
Показать ответ
Ответ:
vikammirkushaoz9agx
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 оценок)
Популярные вопросы: Информатика
ЛиляОлье1
23.06.2020 08:02
нужно сдать работу через 2 дня Сама задача: написать на c++, без углубленных библиотек желательно КРЕСТИКИ-НОЛИКИ Вывод в консоль графически. Ячейки пронумерованы....
Girjd
24.03.2020 12:18
Для регистрации на некотором сайте пользователю требуется придумать пароль. Длина пароля – 10 символов. В качестве символов используются 32 буквы русского алфавита...
kira10451
03.03.2022 15:18
1. Представить число 1338 в двоичной, десятичной и шестнадцатеричной системах счисления. 2. Представить вещественное число 1548 в десятичной системе счисление. 3....
katyasergienko2004
18.06.2022 17:26
Рисунки,карты,чертежи,диаграммы, схемы,графики представляют собой...
Чертенок22
07.03.2021 22:55
Какое из утверждений верно? a) расширение должно быть уникальным; b) собственное имя файла должно быть уникальным; c) полное имя файла должно быть уникальным; d) все...
Анастасия0411
15.07.2022 20:53
Выберите команды присваивания где допущены ошибки? var a,b: integer; a) a: =b+7 b) a-b: =4 c) b: =a d) a: =-7...
lalka137
16.08.2020 01:13
Какой из измерения количества информации даёт более достоверный результат? ответ объясните...
IdzSen
04.01.2022 12:44
С ИНФОРМАТИКОЙ ЗАДАНИЕ 1- ВАРИАНТ 4ЗАДАНИЕ 2- ВАРИАНТ 4...
boikov2o
23.09.2022 09:34
Какие главные герои в рассказе собачье счастье...
Ramiz2005
23.09.2022 09:34
Рассказ о воробье из рассказа скворцы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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