М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Zxcvbnm1412
Zxcvbnm1412
01.08.2021 09:07 •  Информатика

. У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b(b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. Программа для исполнителя Альфа - это последовательность номеров команд. Известно, что программа 11221 переводит число 11 в число 118. Определите значение b.

👇
Ответ:
Nactyska5004763256
Nactyska5004763256
01.08.2021

3

Объяснение:

1) 11 + 1 = 12

2) 12 + 1 = 13

3) 13 * b = 13b

4) 13b * b = 13b^2

5) 13b^2 + 1 = 118

Решим квадратное уравнение, чтобы найти b:

13b^2 + 1 = 118

13b^2 = 117

b^2 = 117 / 13

b^2 = √9

b = 3

4,6(12 оценок)
Открыть все ответы
Ответ:
nikcentennial
nikcentennial
01.08.2021

#include "stdafx.h"

#include < iostream>

using namespace std;

 

int main(int argc, char* argv[])

{

    cout < < "obrabotka massiva" < < endl;

    int array1[16] = { 5, -12, -12, 9, 10, 0, -9,

                    -12, -1, 23, 65, 64, 11, 43, 39, -15 }; // объявление и инициализация одномерного массива

    cout < < "indeks" < < "\t\t" < < "element massiva" < < endl; // печать заголовков

    for (int counter = 0; counter < 16; counter++)   //начало цикла

    {

    //вывод на экран индекса ячейки массива, а затем содержимого этой ячейки, в нашем случае - это целое число

    cout < < "array1[" < < counter < < "]" < < "\t\t" < < array1[counter] < < endl;

    }

    system("pause");

    return 0;

}

4,5(2 оценок)
Ответ:
katerina200219v
katerina200219v
01.08.2021
Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,'C:\Bout.txt');
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.
4,8(37 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ