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

1. Напишите программу, которая в последовательности натуральных чисел определяет
максимальное число, кратное 4. Программа получает на вход количество чисел в
последовательности, а затем сами числа. Впоследовательности всегда имеется число,
кратное 4. Количество чисел не превышает 1000. Введенные числа не превышают 30 000,
Программа должна вывести одно число и максимальное число, кратное 4,
2. Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных В. Программа получает на вход количество чиселв
последовательности, а затем сами числа, в последовательности всегда имеется число,
кратное 3. Количество чисел не превышает 100. Введенные числа не превышают 300,
Программа должна вывести одно число количество чисел, кратных З.
3. Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных 6. Программа получает на вход количество чисел в
последовательности, а затем сами числа, в последовательности всегда имеется число,
кратное 6,

Показать ответ
Ответ:
ПрофессиАНАЛ
ПрофессиАНАЛ
25.04.2023 05:26

var

 n, Num, i, j, t: integer;  

 Count: array[1..12] of integer;  

 Names: array[1..12] of integer;

begin

 for i := 1 to 12 do  

 begin

   Count[i] := 0;  

   Names[i] := i;  

 end;  

 ReadLn(N); { Считываем количество запросов}  

 for i := 1 to N do  

 begin

   ReadLn(t); {считали очередной запрос}  

   Count[t] := Count[t] + 1;  

 end;  

 {Сортируем массивы Names и Count в порядке убывания значений массива Count}  

 for i := 12 downto 2 do  

   for j := 2 to i do  

     if Count[j - 1] < Count[j] then  

     begin

       t := Count[j];

       Count[j] := Count[j - 1];

       Count[j - 1] := t;

       t := Names[j];

       Names[j] := Names[j - 1];

       Names[j - 1] := t;

     end;  

 for i := 12 downto 1 do  

   if Count[i] > 0 then  

     WriteLn(Names[i], ' ', Count[i]);  

end.

Объяснение:

0,0(0 оценок)
Ответ:
alinkaaa3
alinkaaa3
25.04.2023 05:26

#include <iostream>

using namespace std;

int main()

{

   double a, b, c;

   cin >> a >> b >> c;

   if ((a+b > c) && (a+c > b) && (b+c > a))

   {

       if (a == b)

           if (a == c) cout << "Треугольник равносторонний";

           else cout << "Треугольник равнобедренный";

       else if ((a == c) || (b == c )) cout << "Треугольник равнобедренный";

       else cout << "Треугольник разностронний";

   }

   else cout << "Невозможно построить треугольник";

   return 0;

}

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