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

Напишите код в черепашке к этой цепочке. или сфоткайте ​

Показать ответ
Ответ:
lotoskei
lotoskei
06.09.2020 12:14
// 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 оценок)
Ответ:
evafadeeva05
evafadeeva05
15.11.2022 21:56
Из чего что получается, при пробежке от 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-бота