Question

Помогите!!!! Паскаль! Составить программу выделение цифр из трехзначного числа

Answer 1

program abc;

var a,b,c,d:integer;

begin

readln(a);

b:= a mod 10;

c:= a div 100;

d:= a div 10 mod 10;

writeln(c);

writeln(d);

writeln(b);

end.

,где "с" первая цифра

        "d" вторая цифра

      "b" третья цифра

Answer 2

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

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

  // Проверяем, что число является трехзначным
  if (num < 100) or (num > 999) then
  begin
    writeln('Ошибка! Введено не трехзначное число.');
    exit; // Завершаем программу
  end;

  // Выделяем цифры из числа
  digit1 := num div 100;
  digit2 := (num div 10) mod 10;
  digit3 := num mod 10;

  // Выводим результат
  writeln('Первая цифра: ', digit1);
  writeln('Вторая цифра: ', digit2);
  writeln('Третья цифра: ', digit3);
end.

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