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

информатика Принцип домино. Имеется ряд, состоящий из вертикально стоящих костяшек домино разного раз- мера. Для каждой из костяшек известна ее высота hi и расстояние до следующей костяшки li. Тол- щина костяшки считается пренебрежимо малой. Первую костяшку толкают, и она падает в сторону второй костяшки. Падение происходит без про- скальзывания, то есть нижний край костяшки остается на том же месте. Если костяшка при падении задевает другую костяшку (или хотя бы касается ее), это приводит к тому, что дальше будут падать обе эти костяшки. Необходимо выяснить, сколько всего костяшек упадет. Входные данные. В первой строке задается натуральное число N (1 < N < 2 ■ 105), определяющее общее количество костяшек. Во второй строке задается N чисел, определяющих высоты соответству- ющих костяшек. В третьей строке задается N — 1 число, i-ое из этих чисел определяет расстояние между i-й и (i + 1)-й костяшкой. Все числа натуральные и не превосходят 109. Выходные данные. Выведите одно число - количество костяшек, которые упадут после толчка первой костяшки. Примеры входных и выходных данных вво д вывод 4 4 1 2 3 4 1 2 1 3 2 5 6 7 4 8

Показать ответ
Ответ:
dobrotina90
dobrotina90
24.10.2020 18:09
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше
0,0(0 оценок)
Ответ:
ArinaMiji
ArinaMiji
04.09.2021 03:27
Возможный вариант в C++
#include <iostream>
int main()
{
    using namespace std;
    int N;
    cout << "Enter N: ";
    cin >> N;
    int num;
    int max = 1;
    int i;
    for (i = 0; i < N; ++i)
    {
        cout << "Enter #" << i + 1 << " number: ";
        cin >> num;
        if ((num - 9) % 10 != 0 && num % 3 == 0)
        {
            max = num;
            break;
        }
    }
    for (int j = i + 1; j < N; ++j)
    {
        cout << "Enter #" << j + 1 << " number: ";
        cin >> num;
        if ((num - 9) % 10 != 0 && num % 3 == 0)
            if (num > max)
                max = num;
    }
    if (max != 1)
        cout << "Max number div by 3 and don't end 9: " << max << endl;
    else
        cout << "No numbers div by 3 and don't end 9" << endl;
    return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота