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

составить алгоритм в КуМире, в Чертёжнике с вектора для индекса заранее!

Показать ответ
Ответ:
Hothhgggvhn
Hothhgggvhn
13.03.2021 15:31
Сначала найдём количество программ из 1 в 7, затем из 7 в 13, после чего их перемножим.

Из 1 в 7
Начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. В скобках будем писать количество программ.

(1)6<-5->7(1)
То есть из числа 5 можно получить числа 6 и 7. Рассмотрим число 4
(2)5<-4->6(1)
Из числа 5 две программы, это указано в скобках. Общее количество программ из числа 4 - три.
Рассмотрим таким все остальные числа до 1.
(3)4<-3->5(2) - всего 5 программ
(5)3<-2->4(3) - всего 8 программ
(8)2<-1->3(5) - всего 13 программ.

Найдем количество программ из 7 в 13. Начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды
(1)12<-11->13(1) - 2 программы
(2)11<-10->12(1) - 3 программы
(3)10<-9->11(2) - 5 программ
(5)9<-8->10(3)  - 8 программ
(8)8<-7->9(5)  - 13 программ

Из 1 в 7 существует 13 программ, из 7 в 13 тоже 13 программ. Общее количество программ равно 13*13 = 169
0,0(0 оценок)
Ответ:
Ангелочек350
Ангелочек350
26.10.2022 07:07
Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;

Begin
Writeln('Введите размер матрицы N*N');
Write('N = ');readln(N);
if (N>1000) or (N<1)  then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
 Begin      
   Writeln('Введите элементы матрицы');      
   sum:=0;   
   for i:=1 to N do     
     for j:=1 to N do     
         Begin     
           readln(mas[i,j]);       
           if (mas[i,j] mod 2 <> 0)
                then sum:=sum+mas[i,j];     
          end;      

     Writeln();   
     Writeln('Исходная матрица');   
     for i:=1 to N do   
        Begin     
            for j:=1 to N do     
               Begin     
                  Write(mas[i,j], ' ');     
               end;     
             Writeln();   
         end;         

     Writeln();   
     Writeln('Сумма нечетных элементов = ',sum);      

  end;

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