Дано целое число. верно ли, что оно кратно 7 и содержит - вопрос №264081773 от pamagiteplease 18.03.2021 05:27

Question

Информатика: Дано целое число. верно ли, что оно кратно 7 и содержит 3цифры? составьте программу и проверьте ее для указанных чисел сравнив результат работы программы с правильном результатом.. число правильный ответ 21 неверно 121 неверно 777 верно -777 верно только программу написать!

pamagiteplease · Answer

Var a:integer;beginwriteln( Введите число );readln(a);if a 0 then a:=(-1)*a;if (a mod 7 =0) and (a div 100 1)then writeln( Верно )else writeln( Неверно );end....