Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
BOLYUBASH1337
22.03.2021 08:25 •
Информатика
Сайты которые не поддерживают https
👇
Увидеть ответ
Ответ:
Fighertik
22.03.2021
Галерея,плай музыка,сообщение и тд
4,8
(63 оценок)
Открыть все ответы
Ответ:
AlinaElsukova
22.03.2021
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
4,4
(52 оценок)
Ответ:
nataliinfp0co9o
22.03.2021
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
4,5
(22 оценок)
Это интересно:
О
Образование-и-коммуникации
12.06.2021
Как составить план: секреты планирования на будущее...
К
Компьютеры-и-электроника
20.11.2020
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
13.09.2021
Как всегда выигрывать спор...
Х
Хобби-и-рукоделие
15.02.2022
Как состарить дерево: советы для создания эффекта возраста...
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
С
Стиль-и-уход-за-собой
13.07.2021
Как правильно мыть волосы: советы от профессионалов...
С
Стиль-и-уход-за-собой
29.07.2020
Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...
К
Компьютеры-и-электроника
30.03.2020
Секреты изменения списка близких друзей Facebook на iPhone и iPad...
К
Компьютеры-и-электроника
04.03.2021
Как добавить фон на веб-страницу: простые шаги, которые помогут улучшить визуальное восприятие...
Новые ответы от MOGZ: Информатика
GOLDENBEACH
22.04.2021
Разработайте и заполните табличную базу данных по следующему описанию: Мама Даулета пошла в магазин и купила продукты: картошки - 4 кг по 180 мг, помидоры- 2 кг по 600 тг, огурцы...
rublevaelina57
24.11.2020
2. Распределите все предложения на три группы: а) истинные высказывания; б) ложные высказывания и в) не являются высказыванием. 1) 2 – 3-2 – 3. 2) Чему равно 2 + 3? 3) x + 2...
вета18С
14.04.2020
найти сколько раз данная цифра встречается в числе. искомая цифра водится с клавиатуры ПАСКАЛЬ...
deneleslamov2
11.09.2022
Ниже приведен фрагмент программы readln(s); readln(t); readln(A); if (s А) or (t 11) then writeln(‘YES’) else writeln(‘NO’) Было проведено 9 запусков программы, при которых...
valia01022004
08.04.2022
Написати програму обчислення виразу:...
Бекзатажеси
11.10.2021
Почему выдает ошибку встречено Writeln , а ожидалось ; решаю 1 вариант Var x, y : integer; Begin Readln (x) ; Y:=Sqrt(1+2*sqr(x)*x/1+sqr*(x)) Writeln (y) ; End...
vvi1310
06.01.2020
Сподробным решением! ирена любит мороженое с фруктами. в кафе был выбор из таких вариантов: пломбир с орехами; пломбир с бананами; пломбир с черникой; шоколадное с черникой;...
артем204567
06.01.2020
Найдите x: 1) 8 в степени x битов=32 кбайт 2)16 в степени x битов=128 кбайт...
yalex83p0a2c7
04.08.2020
Решить . составьте программу для выполнения на экране рисун¬ка из пяти фигур разного цвета и размера....
natalya180000
13.10.2022
Запишите в виде неправильных дроби числа: 2, 3 и 8 со знаменателем 5...
MOGZ ответил
6.4.7.1 Read the text and answer the questions....
Небольшое сообщение по одному покрытосеменному растению...
Почему земли, расположенные к востоку от Руси, принято называть Золотой Ордой?...
Напишите предложения со словами- Межнациональная гармония,культурный центр,переселение...
По каким признакам различаются между собой диффузные и планетарные туманности...
какие хозяйственные занятия были у гуннов 2)на сколько родов ( племён) делилось...
Решите неравенство с параметрами(с подробным решением ) 1) a*x^2 9 2)a*x^2...
Кроссворд на тему о чём плачут лошади составить...
Найдите АВ и апофему SK правильной пирамиды SABC, если Sбок = 144, AS = 10...
У выражение (x+y)-(x-y) Ребята решите...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Галерея,плай музыка,сообщение и тд