Question

Составить программу, которая будет считывать введённое четырехзначное число. Каждую цифру этого числа необходимо вывести в новой строке

Answer 1

// PascalABC.NET

begin
   var num: integer;
   while true do
   begin
      num := ReadlnInteger('введите 4-х значное число, num =');
      if (num > 999) and (num <= 9999)
         then break;
   end;
   
   var str := num.ToString;
   
   foreach var x in str do
      Println(x)
end.

Answer 2

Var a,f:integer;
begin
write('Введите четырехзначное число: ');
readln(a);
f:=a div 1000;
writeln(f);
a:=a-1000*f;
f:=a div 100;
writeln(f);
a:=a-100*f;
f:=a div 10;
writeln(f);
a:=a-10*f;
writeln(a);
end.

Answer 3

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

Ниже приведен пример программы, которая решает данную задачу:

pythonCopy code
number = input("Введите четырехзначное число: ")
for digit in number:
    print(digit)

Как это работает:

1. Сначала программа запрашивает у пользователя ввод четырехзначного числа с помощью функции input().
2. Затем в цикле for происходит итерация по каждой цифре введенного числа с помощью переменной digit.
3. Каждая цифра выводится на новой строке с помощью функции print().

Например, если пользователь вводит число 1234, программа выведет:

Copy code
1
2
3
4

Нужно отметить, что эта программа не проверяет, является ли введенное значение действительно четырехзначным числом, поэтому если пользователь вводит неверный формат, программа может сгенерировать исключение или вывести некорректный результат. Для улучшения этого аспекта программы, можно добавить проверки на правильный формат вводимого значения.