// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum) end.
Пример n= 8 34 -12 0 16 -5 -7 2 -9 S=-33
Пояснения ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n. ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел. Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа. Все, что через фильтр, будет просуммировано при И осталось только вывести результат при тут_сумма) Вот и все.
1) 8 страниц * на 72 строки * 48 символов = 27648 символов - общий объем статьи. 2) информационный объем будет равен количеству символов умноженному на размер кодировки для символа, т.е. 27648 * 8 = 221184 бита. 3) Так как в вариантах ответа есть объем в Кбайтах и в Кбитах, то считать нужно и в байтах и в битах соответственно.
221184 бит - вариант №3 отпадает сразу 221184 бит / 1024 = 216 Кбит - наш ответ 221184 бит /8 = 27648 байт - отпадает вариант №2 221184 бит /8 = 27648 байт / 1024 = 27 Кбайт - отсекает вариант №1
Таким образом правильный ответ 4) 216 Кбит
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
