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

Движение робота по линии. Урок 1

Рис. 1

Рис. 2

Рис. 3

Рис. 4


Движение робота по линии. Урок 1Рис. 1Рис. 2Рис. 3Рис. 4​

Показать ответ
Ответ:
шиканова
шиканова
11.01.2021 13:36
// PascalABC.Net 3.0, сборка 1076
var
  s,ss:string;
  i,n,p:integer;
begin
  Write('Введите строку: '); Readln(s);
  n:=Length(s); p:=Pos(',',s);
  if p in [1..n-1] then begin
    ss:=Copy(s,p+1,n-p);
    n:=Length(ss); p:=Pos(',',ss);
    if p=0 then Writeln(ss)
    else Writeln(Copy(ss,1,p-1))
    end
  else Writeln('*** Нечего выводить ***')
end.
     
Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679

Введите строку: 01234,45679101121314151617
45679101121314151617

Введите строку: 01234,
*** Нечего выводить ***
0,0(0 оценок)
Ответ:
Платонф
Платонф
10.01.2021 13:15
Из чего что получается, при пробежке от 100 до 999
[184, 129]
[275, 129]
[366, 129]
[390, 129]
[399, 1812]
[457, 129]
[481, 129]
[548, 129]
[572, 129]
[639, 129]
[663, 129]
[754, 129]
[845, 129]
[920, 112]
[930, 123]
[936, 129]
[993, 1812]

Общее кол-во
{129=>13, 123=>1, 1218=>0, 1812=>2, 312=>0, 912=>0, 112=>1}

ответ 4 числа

Код
def Avtomat2(chislo)
    return 0 if !chislo.between?(100, 999)

    s = chislo.to_s
    a = s[0].to_i + s[1].to_i
    b = s[1].to_i + s[2].to_i
    s = [a, b].max.to_s + [a, b].min.to_s

    return s.to_i
end

def zadanie(min, max, numbers)
    b = Hash.new
    numbers.each do |w|
        b.store(w, 0)
    end

    for i in min..max
        r = Avtomat2(i)
        if numbers.include?(r)
            p [i,r]
            b[r] += 1
        end
    end
    return b
end

# # # Примеры применения
p zadanie(100, 999, [129, 123, 1218, 1812, 312, 912, 112])
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота