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

У велоконкурсі беруть участь 119 спортсменів. Спеціальнний пристрій реєструє проходження кожним із учасників проміжного фінішу, записуючи його номер звикристанням мінімального двійкового коду повідомлення, записаного пристроє, після того, як проміжний фініш пройшли 70 велесоптдистіа???(Відповідь надати у бітах)

Показать ответ
Ответ:
uzinalizs
uzinalizs
15.07.2022 18:22

#include <bits/stdc++.h>

using namespace std;

int main()

{

   int n, k1 = 0,k2 = 0;

   cin >> n;

   int b = 0;

   vector<int> a;

   for(int i = 0; i < n; ++i){

       cin >> b;

       a.push_back(b);

   }

   for(int i = 0; i < a.size(); ++i)

       if(!(a.at(i)%2==0)){

           cout << a.at(i) << " ";

           k1++;

       }

   cout << endl;

   for(int i = 0; i < a.size(); ++i)

       if(a.at(i)%2==0){

           cout << a.at(i) << " ";

           k2++;

       }

   cout << endl;

   if(k1 > k2)

       cout << 3;

   else

       cout << 4;

   return 0;

}

0,0(0 оценок)
Ответ:
лина2110
лина2110
02.05.2023 07:46
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (p,q,s):=(1,2,0);
  var k:=0;
  Write('(1,5) ');
  for var i:=3 to 1000 do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      (p,q,s):=(q,s,i);
      if q-p=4 then Write('(',p,',',q,') ')
      else
        if s-p=4 then Write('(',p,',',s,') ')
      end
    end
end.

Результат
(1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота