Question

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

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

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

pascalCopy code
program ExtractDigits;

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.

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