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.