Question

Помогите решить..( програмирование) Дано натуральное четырехзначное число. Найти произведение его второй и четвёртой цифры.( Pascal ABC)

Answer 1

Если считать цифры справа налево(в числе 1234, цифра 4 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 10) mod 10)*(A div 1000));
End.

Если считать слева направо(в числе 1234, цифра 1 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 100) mod 10)*(A mod 10));
End.

Answer 2

Конечно, вот как можно решить данную задачу на Pascal ABC:

pascalCopy code
program FindProduct;
var
  number, secondDigit, fourthDigit, product: integer;
begin
  writeln('Введите четырёхзначное число:');
  readln(number);
  
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Введено неверное число. Пожалуйста, введите четырёхзначное число.');
    exit;
  end;

  secondDigit := (number div 100) mod 10;
  fourthDigit := number mod 10;
  
  product := secondDigit * fourthDigit;
  
  writeln('Произведение второй и четвёртой цифр числа: ', product);
end.

Этот код позволяет пользователю ввести четырёхзначное число, затем находит вторую и четвёртую цифры числа и вычисляет их произведение.