Question

Написать программу который принимает с клавиатуры два положительных, двузначное и четырёхзначное, и проверяет, сколько раз двузначное число фигурирует как внутреннее по отношению к четырёхзначному. Пример:Ввод 1: 2525Ввод 2: 25Результат: 2

Answer 1

Ответ:

begin

 var a,b,c:integer;

 write('Введите числа a,b: '); readln(a,b);

         for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);

         writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');

end.

Примечание:

Если хотите сделать защиту от некорректного ввода, то программа будет выглядеть так:

begin

 var a,b,c:integer;

 write('Введите числа a,b: '); readln(a,b);

 

 if (a.ToString.Length<>4) or (a<0) then

   writeln ('Число а должно быть положительным четырехзначным')else

     begin

   if (b.ToString.Length<>2) or (b<10) then

     writeln ('Число b должно быть положительным двухзначным') else

       

       begin

         for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);

         writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');

       end;

   end;

end.

Answer 2

Вы можете написать такую программу на языке Python. Вот пример такой программы:

pythonCopy code
# Ввод двух чисел с клавиатуры
four_digit_number = input("Введите четырёхзначное число: ")
two_digit_number = input("Введите двузначное число: ")

# Проверка на правильность ввода
if len(four_digit_number) != 4 or len(two_digit_number) != 2 or not four_digit_number.isdigit() or not two_digit_number.isdigit():
    print("Пожалуйста, введите корректные числа.")
else:
    # Инициализация счетчика
    count = 0

    # Проход по четырёхзначному числу и поиска двузначного числа
    for i in range(len(four_digit_number) - 1):
        if four_digit_number[i:i+2] == two_digit_number:
            count += 1

    # Вывод результата
    print(f"Число {two_digit_number} встречается {count} раз внутри числа {four_digit_number}.")

Эта программа позволяет вам ввести два числа с клавиатуры и затем проверяет, сколько раз двузначное число встречается внутри четырёхзначного числа.