Дано двузначное число а. Если число нечетное и не - вопрос №312952505 от 12345678300 11.02.2023 03:58

Question

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

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