Предмет: Информатика,
автор: Елена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.
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.
Похожие вопросы
Предмет: Немецкий язык,
автор: fvhwcy
Предмет: Математика,
автор: nastyakostia
Предмет: Русский язык,
автор: ngavriluk2009
Предмет: Обществознание,
автор: Езидкамн