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

Постройте ориентированный граф автомата мура сок двух видов. сок первого вида стоит 30 рублей, второго вида – 20 рублей. автомат принимает купюры по 10 рублей и монеты по 10 рублей.

Показать ответ
Ответ:
abduboriy2004
abduboriy2004
11.05.2020 01:48
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
0,0(0 оценок)
Ответ:
gggtair2004
gggtair2004
29.06.2022 13:30

я просто ищу все простые числа в диапазоне от 1 до n с решето эратосфена, а далее просто сравниваю вектор с простыми числами.

мой пример решения:

#include

#include

using namespace std;

int main()

{

    int n;

    cin > > n;

    vector prime (n+1, true);

    prime[0] = prime[1] = false;

    for (int i=2; i*i< =n; ++i)

        if (prime[i])

            for (int j=2; j< =n/i; j++)

                if (prime[i*j]) prime[i*j] = false;

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

    {

        for(int j = i; j < prime.size(); ++j)

        {

            if(prime[i]& & prime[j])

                if(i+j==n)

                    cout < < i < < " " < < j < < endl;

        }

    }

    cin.get();

    cin.get();

}

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