Срочно! Определить является ли двузначное число кратным 7? Если число не является двузначным но кратно 7 то вывести сообщение что число не двузначное. Если оно не кратно 7 то вывести соответствующее сообщение. Сделать в паскале
More Questions From This User See All
Answers & Comments
Verified answer
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.