Question

Дано трёхзначное число. Определить,стоит ли в середине цифра 3. Нужно написать программу в Pascal

Answer 1

var a,b:integer;

begin

 readln(a);

 b:=a div 10;

 b:=b mod 10;

 if (b=3) then  write('Стоит 3') // Если b=3, то выводит 'Стоит 3'

 else write('Не стоит 3') // Если b не равно 3, то выводит 'Не  

                                                                                           стоит 3'

end.

Answer 2

Для определения, содержится ли цифра 3 в середине трехзначного числа, можно использовать деление и остаток от деления на 10. В Pascal код будет выглядеть примерно так:

pascalCopy code
program CheckDigitInMiddle;

var
  number, firstDigit, middleDigit, lastDigit: integer;

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

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

  // Вычисление цифр числа
  firstDigit := number div 100;
  middleDigit := (number div 10) mod 10;
  lastDigit := number mod 10;

  // Проверка, стоит ли в середине цифра 3
  if middleDigit = 3 then
    writeln('Цифра 3 стоит в середине числа.')
  else
    writeln('Цифра 3 не стоит в середине числа.');
end.

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