Question

ПОМОГИТЕ ПОЖАЛУЙСТА Дано два целых восьмизначных числа а и б требуется написать программу которая находит цифру которая оканчивается число a*b при этом а и б могут быть как положительными так и отрицательными ( на лазарусе )

Answer 1

Ответ:

program FindDigit;

var

 a, b, c: integer;

begin

 write('Введите число a: ');

 readln(a);

 write('Введите число b: ');

 readln(b);

 c := a * b; // находим произведение a и b

 writeln('Произведение a и b = ', c);

 writeln('Цифра, которая оканчивается на число a*b: ', abs(c) mod 10);

end.

Answer 2

Для решения этой задачи вам потребуется написать программу на Pascal с использованием Lazarus. Ниже представлена примерная реализация такой программы:

pascalCopy code
program FindLastDigit;

var
  a, b, result: Int64; // Используем Int64 для работы с восьмизначными числами

begin
  // Вводим значения a и b
  Write('Введите число a: ');
  Readln(a);
  Write('Введите число b: ');
  Readln(b);
  
  // Вычисляем произведение a и b
  result := a * b;
  
  // Находим последнюю цифру в результате
  result := Abs(result) mod 10; // Берем модуль результата и остаток от деления на 10
  
  // Выводим результат
  writeln('Последняя цифра в произведении a и b: ', result);
end.

Эта программа сначала запрашивает у пользователя значения a и b, затем вычисляет их произведение и находит последнюю цифру этого произведения с помощью операции остатка от деления на 10. В результате программа выводит последнюю цифру.

Помните, что вам нужно будет скомпилировать и запустить эту программу в среде Lazarus.