В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Соваучка
Соваучка
09.03.2021 13:02 •  Информатика

1. составить блок схему по нахождению произведению нечётных натуральных чисел от 33 до 55. 2. составить блок схему по нахождению суммы всех чисел от 9 до п.

Показать ответ
Ответ:
dashponi2007
dashponi2007
17.03.2020 09:32
В C++
#include <iostream>
int main()
{
    using namespace std;

    const int n = 6;
    double arr[n];

    for (int i = 0; i < n; ++i)
    {
        cout << "Enter #" << i + 1 << " element: ";
        cin >> arr[i];
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;

    double p = 1.0;
    bool flag = false;
    for (int i = 0; i < n; ++i)
        if (arr[i] < 0)
        {
            p = p * arr[i];
            flag = true;
        }
   
    if (!flag)
        p = 0.0;
   
    cout << "Multiplication of negative: " << p << endl;

    int imax = 0;
    for (int i = 1; i < n; ++i)
        if (arr[i] > arr[imax])
            imax = i;

    double s = 0;
    for (int i = 0; i < imax; i++)
        if (arr[i] > 0)
            s += arr[i];

    cout << "Sum of positive before max: " << s << endl;

    double temp;
    for (int i = 0, m = n - 1; i < n / 2; ++i, --m)
    {
        temp = arr[i];
        arr[i] = arr[m];
        arr[m] = temp;
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;
    return 0;
}
0,0(0 оценок)
Ответ:
helpme168
helpme168
16.03.2021 18:40
Function Square(x1, y1, x2, y2, x3, y3: real): real;
begin 
    Square := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2;
end;

var 
  x1, y1, x2, y2, x3, y3, s1, s2: real;

begin 
  write('Задайте первый треугольник(x1,y1,x2,y2,x3,y3): '); 
  readln(x1, y1, x2, y2, x3, y3); 
  s1 := Square(x1, y1, x2, y2, x3, y3); 
  write('Задайте второй треугольник(x1,y1,x2,y2,x3,y3): '); 
  readln(x1, y1, x2, y2, x3, y3); 
  s2 := Square(x1, y1, x2, y2, x3, y3); 
  if s1 > s2 then writeln('Площадь первого треугольника больше') 
  else if s1 < s2 then writeln('Площадь второго треугольника больше') 
  else writeln('Площади треугольников равны');
end.

p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота