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.