Question

Срочно! Определить является ли двузначное число кратным 7? Если число не является двузначным но кратно 7 то вывести сообщение что число не двузначное. Если оно не кратно 7 то вывести соответствующее сообщение. Сделать в паскале

Answer 1

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.