Question

СРОЧНО!!! Создать программу на Паскаль , определяющую все цифры четырехзначного числа.

Answer 1

var

 n:integer;

begin

 read(n);

 write( n div 1000 mod 10 ,' ', n div 100 mod 10, ' ', n div 10 mod 10 , ' ', n mod 10);

end.

Answer 2

Конечно, вот простая программа на Паскаль, которая определяет все цифры четырехзначного числа:

pascalCopy code
program ExtractDigits;
var
  number, digit1, digit2, digit3, digit4: integer;
begin
  writeln('Введите четырехзначное число: ');
  readln(number);

  // Извлекаем каждую цифру
  digit1 := number div 1000;     // Тысячи
  digit2 := (number div 100) mod 10; // Сотни
  digit3 := (number div 10) mod 10;  // Десятки
  digit4 := number mod 10;         // Единицы

  // Выводим каждую цифру
  writeln('Цифра в тысячах: ', digit1);
  writeln('Цифра в сотнях: ', digit2);
  writeln('Цифра в десятках: ', digit3);
  writeln('Цифра в единицах: ', digit4);
end.

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