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

bykhan2 bykhan2    3   18.05.2020 05:35    0

Ответы
Loi00 Loi00  14.09.2020 14:23

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика