Дано двузначное число а. Если число нечетное - вопрос №129531823 от Ilona004 18.05.2022 23:40

Question

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

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