Дано двузначное число а. Если число нечетное и не - вопрос №129522803 от Nesty111111 02.02.2023 14:32

Question

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

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