Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
tytik1
19.03.2023 21:41 •
Информатика
Коротко и понятно (примеры желательно)
👇
Увидеть ответ
Открыть все ответы
Ответ:
AlinaElsukova
19.03.2023
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 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 оценок)
Ответ:
79654622969ss
19.03.2023
#include <iostream>
#include <iomanip>
using namespace std;
void Fun(int n)
{
if (n != 3)
{
double x1; double y1; double x2; double y2; double x3; double y3;
cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
double a = sqrt((x1 - x2)*(x1 - x2) + (y1 - y2)*(y1 - y2));
double b = sqrt((x2 - x3)*(x2 - x3) + (y2 - y3)*(y2 - y3));
double c = sqrt((x3 - x1)*(x3 - x1) + (y3 - y1)*(y3 - y1));
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p - a)*(p - b)*(p - c));
cout << setprecision(6) << fixed << s;
}
if (n != 6)
{
double a; double b; double c;
cin >> a >> b >> c;
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p - a)*(p - b)*(p - c));
cout << setprecision(6) << fixed << s; }
}
int main()
{
int n;
cin >> n;
Fun(n);
return 0;
}
4,4
(11 оценок)
Это интересно:
К
Компьютеры-и-электроника
15.07.2020
Как правильно очистить экран iPhone и iPod Touch...
С
Стиль-и-уход-за-собой
21.02.2023
Как заплести косу в стиле «Хвост русалки»...
13.03.2023
Как быстро избавиться от плохого настроения: простые и эффективные советы...
16.06.2022
Как стать лучшей подругой в средней школе: советы для девочек 5—8 классов...
О
Образование-и-коммуникации
22.12.2020
Как найти равнодействующую силу: простое объяснение и практические примеры...
Д
Дом-и-сад
26.04.2022
Как вскрыть замок: советы от профессионалов...
И
Искусство-и-развлечения
06.04.2020
Как написать свою собственную песню: шаг за шагом...
П
Питомцы-и-животные
23.06.2022
Как понять, что лошади пора подпилить зубы...
З
Здоровье
15.06.2022
Как избежать сухости глаз от компьютера...
К
Компьютеры-и-электроника
23.06.2020
Как скачать видео с YouTube в мобильном браузере Opera Mini: подробный гайд...
Новые ответы от MOGZ: Информатика
ирадаарасханова
08.08.2020
70 ! ! адрес ячейки электронной таблицы – это … имя, состоящее из любой последовательности символов имя, состоящее из имени столбца и номера строки адрес байта оперативной памяти,...
hashedhashed1
29.03.2021
Выбрать операцию результатом который является остатком от деления одного целого числа на другое div for then mod...
olena4519
25.11.2020
(На C++) 1. Если сумма S4 положительных элементов главной диагонали матрицы А (7×7) больше единицы, вывести значение SA/SB, где SB сумма положительных элементов главной диагонали...
tatiana85gandzii
06.06.2023
Тестові завдання 1. Введіть довжину двійкового коду текстового повідомлення “Комп ютер - це пристрій для обробки інформації. при кодуванні таблицею кодів Windows-1251. байт 2 Введіть...
omy00god
18.03.2022
208 317 інформатика двох числові вирази потрібно обчислити до іть...
zahar64
14.04.2020
Какую текстовую информацию можно оформить в табличной форме, а какую нецелесообрано? 5 примеров...
aniadark
11.08.2020
Записать в развёрнутой форме следующие числа: а)783,14(10) б)650,34(8) в)1101,101(2)...
данданн
31.01.2020
При поражении электрическим током нужно обязательно..…....
hakimov676
30.09.2020
Составить алгоритм, считающий произведение всех целых чисел от 1 до i. МНЕ НУЖНА БЛОК-СХЕМА...
тони2006
27.05.2022
По рисунку найди пересечение и объединение данных числовых промежутков. BUIN Lend І -2 5 х —1 6 ответ: пересечение: г. Од; объединение: 1:0). е Назад С Проверить мне через 5 минут...
MOGZ ответил
Эмма и Сэм играют в игру на память. Посмотрите дневник Эммы и послушайте. Какие...
Соотнеси слова с их значениями...
нужно выбрать один из предложенных ниже ответов 1-жақтағы тәуелді жалғаулы жекеше...
3 Қаратпа сөз қатысып тұрған сөйлемді белгілеңіз. А) Адам емес екенсің ғой, Айдар!...
В треугольнике abc сторона ac=ab, сторона ab=6, sin a=0,8. Найдите ac...
выбрать правильные варианты. Вместе с распадом Древнерусского государства прекратила...
На входе багряно почав палати місяць: синтаксичний разбор...
106. Ағыспен 15 км, ағысқа қарсы 18 км қашықтықты катер 1 сағат 45 минутта жүзіп...
К какому сословию принадлежат дикой и кабаниха? Как относятся к ним в калинове?...
63. Ақпарат беру, ақпараттың түрлері. Практикум А деңгейі Кестені дәптеріне толтыр....
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// 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