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

1) дано число 87395120474. в нём удалили 3 цифры, сдвинув оставшиеся вместе и не меняя их порядок следования. какое минимальное число, делящееся на три, можно получить таким образом из исходного числа?
2) гена любит число 13. он решил посчитать, сколько есть трёхзначных чисел, внутри которых есть это число. например, подходят числа 135, 213, 193, но не 312, потому что в нём 1 и 3 идут в неправильном порядке. гене посчитать количество таких чисел.
3) у народа кукси алфавит состоит из 15 букв. сколько бит информации содержит в этом алфавите слово из 13 букв?
4) бельчонок придумал интересный шифрования слов (правда, пока только шестибуквенных). сначала нужно переставить 1 букву на место 2, 2 на место 3, 3 на место 4, 4 на место 1, а 5 и 6 поменять местами. бельчонок провёл одно слово через этот алгоритм 10 раз и на выходе получил слово beamer. какое слово было в начале?
5) найдите закономерность в последовательности чисел. в ответ запишите 3 следующих числа в ряде. числа нужно писать через запятую, например 1,2,3.

111, 120, 122, 201, 210, …
+ вопросы ниже

Показать ответ
Ответ:
Nastjadd
Nastjadd
24.06.2021 20:56

#include <iostream>

using namespace std;

bool is_point_in_circle(double x, double y, double xc, double yc, double r);

int main()

{

double x, y, xc, yc, r;

bool result;

cin >> x >> y >> xc >> yc >> r;

result = is_point_in_circle(x, y, xc, yc, r);

if (result) cout << "YES";

else cout << "NO";

return 0;

}

bool is_point_in_circle(double x, double y, double xc, double yc, double r)

{

if ((x - xc) * (x - xc) + (y - yc) * (y - yc) < r * r) return true;

return false;

}

0,0(0 оценок)
Ответ:
Дмитртй11
Дмитртй11
08.08.2021 00:20
// PascalABC.Net 3.0, сборка 1066

const
  n=5;
var
  a:array[1..n,1..n] of integer;
  x:array[1..n] of double;
  i,j,k:byte;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
      end;
    Writeln
  end;
  Writeln('*** Массив x ***');
  for j:=1 to n do begin
    x[j]:=0; k:=0;
    for i:=1 to n do
      if a[i,j] mod 2=0 then begin
        x[j]:=x[j]+a[i,j]; Inc(k)
      end;
    if k>0 then x[j]:=x[j]/k;
    Write(x[j]:0:5,' ')
    end;
  Writeln
end.

Тестовое решение:
*** Исходный массив ***
 -10  18  -8 -15   5
 -21 -18   6  -2   9
  -7  22  -4   3  14
  21  16 -10 -18  -9
  17   3 -14 -18  12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота