Question

Вводятся числа до нажатия 0 (не более 6 ) составить число из первых цифр всех чисел

Answer 1

program raf105;

var

 a: array[1..6] of integer;

 i,c,x: integer;

begin

 writeln('Вводите числа по очереди');

 writeln('Чтобы закончить введите 0');

 readln(a[1]);

 c:= 1;

 repeat

   while a[c] div 10 <> 0 do

     a[c]:= a[c] div 10;

   c:= c+1;

   readln(a[c]);

 until a[c] = 0;

 c:= c-1;

 x:= x + a[1]*trunc(power(10,c-1));

 for i:=2 to c-1 do

   x:= x + a[i]*trunc(power(10,c+1-i)) div 10;

 x:= x + a[c];

 writeln('Вывод: ',x);

end.

PascalABC 3.4.2

Answer 2

Для решения этой задачи можно использовать следующий алгоритм:

1. Создать переменную для хранения полученного числа, начальное значение которой равно нулю.
2. Запрашивать у пользователя числа до тех пор, пока он не введет 0 или пока количество введенных чисел не достигнет 6.
3. При каждом вводе числа умножать текущее значение переменной на 10 и добавлять к нему новую цифру (первую цифру введенного числа).
4. После выхода из цикла, полученное число будет составлено из первых цифр всех введенных чисел.

Пример реализации на языке Python:

pythonCopy code
def compose_number():
    result = 0
    for _ in range(6):  # Предполагаем, что не более 6 чисел вводятся
        number = int(input("Введите число (для завершения введите 0): "))
        if number == 0:
            break
        result = result * 10 + abs(number) // 10  # Используем abs, чтобы обрабатывать отрицательные числа
    return result

composed_number = compose_number()
print("Составленное число:", composed_number)

Примечание:

• В примере используется abs(number) // 10, чтобы получить первую цифру числа (не учитывая знак). Если нужно учитывать знак, можно убрать abs().
• При вводе числа 0 или после ввода 6 чисел, процесс ввода завершится, и программа выведет составленное число из первых цифр введенных чисел.