Задать вопрос
1 ноября, 01:23

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

+4
Ответы (1)
  1. 1 ноября, 01:57
    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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы