Question

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

Answer 1

Ответ:

Var a:integer;

Begin

Readln(a);

if (a mod 2 = 1) and (a mod 3 > 0) then write((a mod 10) * (a div 10))

else if (a mod 5 = 0) then write(a mod 10)

else write(a);

End.