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

Question

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

Comments

Heeeelp me!!!!

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.