Задать вопрос
4 июня, 22:41

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

+2
Ответы (1)
  1. 4 июня, 23:42
    0
    Var a:integer;

    Begin

    Read (a) ;

    If (a mod 2=0) and (a mod 7=0) and (a mod 50) then

    a:=a+6;

    Write (a) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ввести число если оно четное кратное 7 и не кратное 5 то увеличить его на 6 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы