Question

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

Answer 1

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.

Answer 2

Хорошо, чтобы выполнить данное условие, введите число. Если оно четное, кратное 7 и не кратное 5, то я увелишу его на 6.