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

ЯнчикИлИоДуванчик ЯнчикИлИоДуванчик    2   06.06.2019 18:40    1

Ответы
Den2228 Den2228  01.10.2020 20:53
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика