Question

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

Answer 1

Ответ:

program z1;

var a, b: integer;

begin

if a mod 10 < b mod 10 then

begin

write(a mod 10);

end

else

begin

write(b mod 10);

end;

end.

Answer 2

Для решения данной задачи можно воспользоваться следующим алгоритмом:

1. Введите два натуральных числа с помощью функции readln.
2. Используйте оператор % (остаток от деления) для получения последней цифры каждого числа.
3. Сравните полученные последние цифры с помощью оператора < (меньше).
4. Выведите на экран то число, у которого последняя цифра меньше, с помощью функции writeln.

Пример кода на языке Pascal:

pascalCopy code
program LastDigit;
var
  num1, num2, lastDigit1, lastDigit2: integer;
begin
  writeln('Введите два натуральных числа:');
  readln(num1);
  readln(num2);

  lastDigit1 := num1 mod 10;
  lastDigit2 := num2 mod 10;

  if lastDigit1 < lastDigit2 then
    writeln('Последняя цифра числа ', num1, ' меньше.')
  else if lastDigit2 < lastDigit1 then
    writeln('Последняя цифра числа ', num2, ' меньше.')
  else
    writeln('Оба числа имеют одинаковую последнюю цифру.');
end.

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