Question

Помогите пожалуйста написать программу в Pascal ;( Напишите программу, запрашивающую пин-код для банковской карты в виде четырехзначного числа. Считая, что в правильном пин-коде сумма первых двух цифр должна равняться сумме двух последних, выводя в случае ввода неправильного пин-кода соответствующее сообщение.

Answer 1

Ответ:

pascal

Объяснение:

program pincode;

var

 pin: integer;

begin

 repeat

   Write('Введите PIN-код: ');

   ReadLn(pin);

 until (length(inttostr(pin)) = 4);

 if (pin div 1000 + (pin mod 1000) div 100) = ((pin mod 100) div 10 + pin mod 10)

     then WriteLn('PIN-код верен!') else WriteLn('PIN-код неверен!');

end.

Answer 2

Конечно, вот пример программы на Pascal, которая запрашивает пин-код и проверяет его на соответствие условиям:

pascalCopy code
program BankCardPin;

var
  PinCode: integer;
  FirstTwoDigits, LastTwoDigits: integer;

begin
  // Запрос пин-кода
  write('Введите пин-код (четырехзначное число): ');
  readln(PinCode);

  // Проверка на четырехзначность
  if (PinCode >= 1000) and (PinCode <= 9999) then
  begin
    // Разделение пин-кода на первые две и последние две цифры
    FirstTwoDigits := PinCode div 100;
    LastTwoDigits := PinCode mod 100;

    // Проверка на равенство суммы первых двух цифр и последних двух
    if (FirstTwoDigits + LastTwoDigits) = PinCode then
      writeln('Пин-код верный.')
    else
      writeln('Неправильный пин-код. Сумма первых двух цифр не равна сумме последних двух.');
  end
  else
    writeln('Неправильный формат пин-кода. Пин-код должен быть четырехзначным числом.');

  readln;
end.

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