Question

Программирование pascal (через цикл)дано натуральное число.верно ли что оно начинается на Х, и заканчивается на У?​

Answer 1

Ответ:

var

   n: integer;

   x, y, b: byte;

begin

   read(n, x, y);

    while n > 0 do begin

       b := n mod 10;

       n := n div 10;

   end;

   

   if b = x then

       writeln('Число начинается на X')

   else

       writeln('Число не начинается на X');

   if n mod 10 = y then

       writeln('Число заканчивается на Y')

   else

       writeln('Число не заканчивается на Y');

end.

Answer 2

Для проверки, начинается ли натуральное число на определенную цифру X и заканчивается на цифру Y, вы можете использовать цикл в Pascal. Ниже приведен пример кода, который выполняет эту задачу:

pascalCopy code
program CheckStartAndEndDigits;
var
  num, X, Y, firstDigit, lastDigit: Integer;
begin
  writeln('Введите натуральное число: ');
  readln(num);
  writeln('Введите цифру X: ');
  readln(X);
  writeln('Введите цифру Y: ');
  readln(Y);

  // Получаем первую цифру числа
  firstDigit := num;
  while firstDigit >= 10 do
    firstDigit := firstDigit div 10;

  // Получаем последнюю цифру числа
  lastDigit := num mod 10;

  // Проверяем, начинается ли на X и заканчивается на Y
  if (firstDigit = X) and (lastDigit = Y) then
    writeln('Число начинается на ', X, ' и заканчивается на ', Y)
  else
    writeln('Число не соответствует условию.');

  readln;
end.

Этот код сначала запрашивает у пользователя натуральное число, а затем цифры X и Y. Затем он извлекает первую и последнюю цифры из числа и сравнивает их с X и Y, соответственно. Если числа совпадают, программа сообщит, что число начинается с X и заканчивается на Y. В противном случае она сообщит, что число не соответствует условию.