Question

Помогите написать программу: Написать программу на языке Паскаль. С клавиатуры вводиться пятизначное число. Определить, какая цифра больше, вторая или четвертая?

Answer 1

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadInteger('Введите пятизначное натуральное число:').ToString;
  if s[2]<s[4] then Writeln('Вторая цифра меньше четвертой')
  else Writeln('Вторая цифра не меньше четвертой')
end.

Answer 2

Программа на языке Паскаль для определения, какая цифра больше - вторая или четвертая в пятизначном числе:

program CompareDigits;
var
  number, secondDigit, fourthDigit: integer;
begin
  writeln('Введите пятизначное число: ');
  readln(number);

if (number < 10000) or (number > 99999) then
  begin
    writeln('Число должно быть пятизначным!');
  end
  else
  begin
    secondDigit := (number div 1000) mod 10;
    fourthDigit := (number div 10) mod 10;

if secondDigit > fourthDigit then
    begin
      writeln('Вторая цифра больше четвертой');
    end
    else if secondDigit < fourthDigit then
    begin
      writeln('Четвертая цифра больше второй');
    end
    else
    begin
      writeln('Вторая и четвертая цифры равны');
    end;
  end;
end.

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