Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
KykuCat
04.12.2020 14:35 •
Информатика
Дано n чисел .вычислите сумму квадратов отрицательных чисел
Ответ:
BezNikaVoobshe
08.10.2020 08:00
Pascal ABC.
var
i,n,sum,a:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then sum:=sum+sqr(a);
end;
writeln(sum);
end.
0,0
(0 оценок)
Ответ:
Tori163
08.10.2020 08:00
n = int(input())
s = 0
for i in range(n):
m = int(input())
if m<0: s+=m**2
print(s)
0,0
(0 оценок)
Популярные вопросы: Информатика
Мышка007
22.02.2021 14:31
Влотерее разыгрываются тридцать два билета, с номерами от 1 до 32. вам сообщили что выпал билет с номером 23. какое количество информации в битах вы получили? с пояснением плез...
MaximRomanenko
04.01.2023 00:33
Во сколько раз 2 мб больше, чем 40 кб?...
PrincessaMumia
12.02.2023 11:22
Прочитайте высказывания н.в. гоголя. какими примерами из его произведений вы могли бы проиллюстрировать их? «дивишься драгоценности нашего языка: что ни звук, то и подарок: всё...
ФилиситиФорНау
26.06.2021 12:35
Сумма длин всех рёбер прямойгольного параллелепипеда равна 72 см,а два его измерения6 см и 8 см . найдите третье измерение параллелепипеда....
Svetlanalitv
30.07.2020 16:28
(15/28 - 11/36) × 21/29 + 6 6/7 ÷ 16/21решите 20 ! ...
superpuper90
03.11.2021 12:45
Что надеть на дискач? предложите хорошие варианты....
577656
07.04.2021 17:33
Выписать из текста повести шинель все эпизоды где упоминается лестница как художественная деталь...
nastyazhovnirenko
18.01.2020 16:43
Практическая работа №3. получение кислорода и изучение его свойств. что делаю, что наблюдая, вывод. 50 ! ...
MASTER25575
17.04.2023 11:34
Решите узтест все свои. только быстрее быстрее мне❗ ❗ ❗...
DASHAMIronovAAA
28.08.2020 21:38
Пятеро каменщиков вначале рабочей недели получили равное количество кирпича. когда трое из них израсходовали по 326 кирпичей, то у них осталось столько кирпичей, сколько вначале...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
i,n,sum,a:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then sum:=sum+sqr(a);
end;
writeln(sum);
end.
s = 0
for i in range(n):
m = int(input())
if m<0: s+=m**2
print(s)