Тема:ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.) Задача: Дано целое число. Определить, оканчивается ли оно цифрой 7 и делится ли без остатка на 13. Буду очень благодарна!
uses crt; var a:integer; begin write('Введите число: '); readln(a); if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13'); writeln; if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7'); end. Если нужно выполнять программу из-под программной оболочки, удали первую строку.