Question

СРОЧНО!!! Написать программу для выделения цифр из четырехзначного натурального числа.На языке PascalДАЮ 20 БАЛЛОВ!

Answer 1

Ответ:

program n_4;

var n: Integer;

begin

ReadLn(n); WriteLn(n div 10 mod 100);

end.

Answer 2

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

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

  if (number < 1000) or (number > 9999) then
  begin
    writeln('Число не является четырехзначным натуральным числом.');
  end
  else
  begin
    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;
end.

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