Question

Составьте ПОЖАЛУЙСТА программу выделения цифр из трехзначного числа. В ПАСКАЛЕ.

Answer 1

Program n_1;

var a, b, c, d:integer;

begin

   readln(a);

   b:=a mod 10;

   c:=a div 10 mod 10;

   d:= a div 100 mod 10;

   writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');

end.

Answer 2

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

pascalCopy code
program ВыделениеЦифр;

var
  number, digit1, digit2, digit3: Integer;

begin
  writeln('Введите трехзначное число:');
  readln(number);

  if (number < 100) or (number > 999) then
  begin
    writeln('Ошибка: Введите трехзначное число.');
    exit;
  end;

  digit1 := number div 100;      // Получаем первую цифру числа
  digit2 := (number div 10) mod 10; // Получаем вторую цифру числа
  digit3 := number mod 10;       // Получаем третью цифру числа

  writeln('Первая цифра: ', digit1);
  writeln('Вторая цифра: ', digit2);
  writeln('Третья цифра: ', digit3);
end.

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