Question

1. Вывести сообщение об отсутствии цифры 1. (Пример. 200 –число не содержит 1, 221 – число содержит 1). 2. Изменить первую и третью цифры в 3-х значном числе.

Answer 1

Pascal / Delphi

1) Program zadanie_1;

var ss: string; i: integer; flag: boolean;

begin

write('Введите число: ');

readln(ss);

for i:=1 to length(ss) do

if (ss[i]='1') then begin flag:=true; break; end else flag:=false;

if (flag=true) then writeln('Число содержит 1') else writeln('Число не содержит 1');

readln;

end.

2) Program zadanie_2;

var n,c,c1,c2,c3: integer;

begin

write('Введите число: ');

readln(n);

c1:=n div 100;

c2:=n mod 100 div 10;

c3:=n mod 100 mod 10;

c:=c3*100+c2*10+c1;

writeln('Новое число: ',c);

readln;

end.

Answer 2

1. Для выполнения первой задачи, нужно проверить, содержит ли данное число цифру 1. Для этого можно преобразовать число в строку и проверить наличие символа "1" в этой строке. Вот пример кода на языке Python:

pythonCopy code
def contains_digit_1(number):
    if '1' in str(number):
        return True
    else:
        return False

# Примеры использования функции:
number1 = 200
number2 = 221

if contains_digit_1(number1):
    print(f"{number1} – число содержит 1.")
else:
    print(f"{number1} – число не содержит 1.")

if contains_digit_1(number2):
    print(f"{number2} – число содержит 1.")
else:
    print(f"{number2} – число не содержит 1.")

2. Для второй задачи, нужно изменить первую и третью цифры в 3-х значном числе. Воспользуемся тем фактом, что числа в Python можно представить в виде строк и выполнить необходимые операции с символами. Вот пример кода:

pythonCopy code
def modify_digits(number, first_digit, third_digit):
    number_str = str(number)
    modified_number_str = first_digit + number_str[1] + third_digit
    return int(modified_number_str)

# Пример использования функции:
original_number = 123
new_number = modify_digits(original_number, '9', '5')
print(f"Исходное число: {original_number}")
print(f"Измененное число: {new_number}")

Обратите внимание, что передаваемые цифры для замены ('9' и '5' в примере) также должны быть строками.