Ввести число если оно четное кратное 7 и не кратное 5 то увеличить его на 6
Ввести число если оно четное кратное 7 и не кратное 5 то увеличить его на 6
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы