Срочно! Определить является ли двузначное число кратным 7? Если число не является двузначным но кратно 7 то вывести сообщение что число не двузначное. Если оно не кратно 7 то вывести соответствующее сообщение. Сделать в паскале
Ответ
Проверено экспертом
Автор - AnonimusPro
var a: integer; begin readln(a); if (a>9) and (a<100) and (a mod 7=0) then write('число кратно 7') else if (a mod 7=0) then write('число не двузначное, но кратно семи') else write('число не кратно 7'); end.