Система команд исполнителя Вычислитель состоит из двух команд, которым
присвоены номера:
1 - вычти 2
2 - умножь на 3
Первая из них уменьшает число на 2, вторая увеличивает число в 3 раза.
При записи алгоритмов для краткости указываются лишь номера команд.
Запишите алгоритм для исполнителя Вычислитель, содержащий не более 5 команд:
получения из числа 4 числа 94
Система команд исполнителя Конструктор состоит из двух команд, которым
присвоены номера:
1 - приписать 2
2 - разделить на 2
По первой из них к числу приписывается справа 2,
по второй число делится на 2.
Как будет преобразовано число 8, если исполнитель выполнит алгоритм 222112?
Некоторый алгоритм из одной цепочки символов получает новую цепочку
следующим образом. Сначала вычисляется длина исходной цепочки символов; если
она чётна, то в начало цепочки символов добавляется последний символ, а если нечётна
— в конец цепочки добавляется средний символ. В полученной цепочке символов
каждая буква заменяется буквой, следующей за ней в русском алфавите
(А — на Б, Б — на В и т. д., а Я — на А).
Получившаяся таким образом цепочка является результатом работы алгоритма.
Дана цепочка символов ДРУГ. Какая цепочка символов получится, если к данной
цепочке применить описанный алгоритм дважды (то есть применить алгоритм к
данной цепочке, а затем к результату вновь применить алгоритм)?
Русский алфавит:

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

kirill031312

19.04.2021 17:34

Сымсыз желілерконспект нужен...

dmit0

28.03.2020 02:19

Заполните пропуски 1.исполнительные файлы(запускает программы)..2 .sys,.drv системные файлы ..3. doc txt ...4 файл содержит графическую информацию ..5. avi ..6 файл содержит звуковую...

ashueva1919

03.04.2022 05:38

Вырази в килобайтах 213 байтов. Введи в поле только числовое значение....

Znanijaetosila1

01.01.2023 20:22

Сколько клеток лабиринта соответствует требованию, что начав движение в данной клетке и выполнив предложенную программу, Робот уцелеет и остановится в клетке А1?...

ayshahajiverdiyeva

05.06.2022 01:35

Автомат получает на вход четырёхзначное натуральное число и строит новое число по следующему алгоритму: 1. вычисляются суммы первой и второй, второй и третьей и третьей и четвёртой...

sagatsayazhan

03.03.2020 16:20

Определите полный набор данных для решения следующих обработки информации: 1) вычисления стоимости покупок в магазине. 2) вычисления суммы сдачи от данных вами продавцу денег....

viva32

03.03.2020 16:20

Ввести рост человека. вывести на экран высокий , если его рост превышает, 180 см и не высокий в противном случае....

Александра4781

21.01.2022 03:35

Вспомните произведение Александра Сергеевича Пушкина «Сказка о царе Салтане». Что послужило каналом связи при передаче письма царя Салтана к его жене. Кто явился помехой при передаче...

ellaandharley30

06.06.2020 02:27

Материя проявляется в форме 1) информации и энергии 2) энергии и пространства 3) пространства и энергии 4) вещества и информации...

Hockeyist97

28.09.2022 04:45

1. Какую функцию в среде программирования выполняют КС ты визуальной среды? 2. Что вы можете сказать о компоненте RadioGroup и его свое 3. Как вы опишете работу компонента CheckBox?...

Ответ:

shansosia05sofisofi

19.08.2021 09:34

1)
#include <iostream>
#include <math.h>

using namespace std;

int main() {
int a;
cin >> a;
int d = a%10;
string s = "yes";
while(abs(a) > 0) {
if(a%10 != d) {
s = "no";
break;
}
a/=10;
}
cout << s << endl;
}
2)
#include <iostream>
#include <math.h>

using namespace std;

int main() {
int a;
cin >> a;
int d = a%10;
a/=10;
string s = "no";
while(abs(a) > 0) {
if(a%10 == d) {
s = "yes";
break;
}
d = a%10;
a/=10;
}
cout << s << endl;
}

0,0(0 оценок)

Ответ:

Dzhyzefina

19.08.2021 09:34

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

var n := Abs(ReadInteger('Введите целое число:'));

var yes := False;

var n1 := n mod 10;

n := n div 10;

while n > 0 do

begin

var n2 := n mod 10;

if n1 = n2 then

begin

yes := True;

break

end;

n := n div 10;

n1 := n2

end;

if yes then Print('Верно')

else Print('Неверно')

end.

А еще это можно решить, к примеру, так:

begin

var s := Abs(ReadInteger('Введите целое число:')).ToString;

if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

else Print('Неверно')

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку