Предмет: Информатика, автор: Елена1408

Дано целое число. Верно ли, что оно кратно 7 и содержит 3цифры? составьте программу и проверьте ее для указанных чисел сравнив результат работы программы с правильном результатом..
число                       правильный ответ 
21                                неверно
121                                неверно
777                                верно
-777                              верно
ТОЛЬКО ПРОГРАММУ НАПИСАТЬ!

Ответы

Автор ответа: Мавортий
0
var a:integer;
begin
writeln('Введите число');
readln(a);
if a<0 then a:=(-1)*a;
if (a mod 7 =0) and (a div 100>1)then writeln('Верно')
else writeln('Неверно');
end.
Похожие вопросы