Ввести число если оно четное кратное 7 и не кратное 5 то увеличить его на 6

ник5030 ник5030    2   26.06.2019 23:20    0

Ответы
NikulinStasFrost NikulinStasFrost  21.07.2020 16:18
Var a:integer;
Begin
Read(a);
If (a mod 2=0) and (a mod 7=0) and ( a mod 5<>0) then
a:=a+6;
Write(a);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика