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