Question

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

Answer 1

var a,b,a_end,sum,dob  : integer;

begin

   writeln('enter a = ');

   read(a);

   writeln('enter b = ');

   read(b);

   sum:= 0;

   dob:= 1;

   a_end:= a mod 10;

   if (a_end mod 2) = 0 then

   begin

       sum:= a + b;

       writeln('sum = ',sum);

   end

   else

   begin

       dob:= a*b;

       writeln('dob = ',dob);

   end;

end.

Answer 2

Конечно, я помогу вам решить задачу на языке Паскаль. Вот пример кода, который реализует данное условие:

pascalCopy code
program SumOrProduct;
var
  num1, num2, lastDigit1, lastDigit2, result: integer;

begin
  // Вводим два двузначных числа
  writeln('Введите первое двузначное число:');
  readln(num1);
  
  writeln('Введите второе двузначное число:');
  readln(num2);

  // Находим последние цифры
  lastDigit1 := num1 mod 10;
  lastDigit2 := num2 mod 10;

  // Проверяем четность последней цифры первого числа
  if lastDigit1 mod 2 = 0 then
  begin
    // Если четная, то находим сумму чисел
    result := num1 + num2;
    writeln('Сумма чисел:', result);
  end
  else
  begin
    // Иначе находим произведение последних цифр
    result := lastDigit1 * lastDigit2;
    writeln('Произведение последних цифр:', result);
  end;
end.

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