Дано двузначное число а. Если число нечетное и - вопрос №129531823 от may12312 26.04.2022 11:24

Question

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

may12312 · Answer

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....