Question

Проверить совпадают ли цифры на нечетных местах в введенном пятизначном числе на паскаль​

Answer 1

Ответ:

var

 s : string;

begin

(* можно проверять не только числа, но и строки, т.к. число представлено в виде строки *)

 write('Введите пятизначное число : ');

 readln(s);

 if (s[1]=s[3]) and (s[3]=s[5]) then

   writeln('Совпадают')

 else

   writeln('Не совпадают');

end.

Answer 2

Для проверки совпадения цифр на нечетных местах в введенном пятизначном числе на языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program CheckOddDigitMatch;
var
  inputNumber, oddDigit1, oddDigit3, oddDigit5: Integer;
begin
  writeln('Введите пятизначное число: ');
  readln(inputNumber);
  
  // Проверка на пятизначность
  if (inputNumber < 10000) or (inputNumber > 99999) then
  begin
    writeln('Вы ввели не пятизначное число.');
    exit;
  end;
  
  // Извлекаем цифры на нечетных позициях
  oddDigit1 := (inputNumber div 10000) mod 10;
  oddDigit3 := (inputNumber div 100) mod 10;
  oddDigit5 := inputNumber mod 10;
  
  // Проверяем совпадение цифр
  if (oddDigit1 = oddDigit3) and (oddDigit3 = oddDigit5) then
    writeln('Цифры на нечетных позициях совпадают.')
  else
    writeln('Цифры на нечетных позициях не совпадают.');
end.

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

Answer 3

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

pascalCopy code
program CheckOddDigits;
var
  number, digit1, digit3, digit5: integer;
begin
  // Введите пятизначное число
  writeln('Введите пятизначное число: ');
  readln(number);

  // Проверка на пятизначность
  if (number < 10000) or (number > 99999) then
  begin
    writeln('Число не является пятизначным.');
  end
  else
  begin
    // Извлекаем цифры на нечетных позициях
    digit1 := (number div 10000) mod 10;
    digit3 := (number div 100) mod 10;
    digit5 := number mod 10;

    // Проверяем совпадение цифр
    if (digit1 = digit3) and (digit3 = digit5) then
      writeln('Цифры на нечетных позициях совпадают.')
    else
      writeln('Цифры на нечетных позициях не совпадают.');
  end;
end.

Эта программа сначала проверяет, является ли введенное число пятизначным, а затем извлекает цифры на нечетных позициях (первая, третья и пятая) и сравнивает их между собой.