Question

Помогите пожалуйста! Как на языке Паскаль записать не кратность.Например, икс не кратно 7. Обязательно объясните почему именно так)

Answer 1

Ответ:

Объяснение:

program krat;

var y,x:integer;

begin

y:=7;

read (x);

if (x mod y)=0 then

 writeln ('Кратно 7') else

 writeln ('Не кратно 7');

end.

Mod отвечает за остаток от деления, поэтому если число делится на 7 без остатка (mod = 0), то это число кратно 7.

Answer 2

Смотри.

икс не кратно 7 записывается так:

x mod 7≠0

пример:

If (x mod 7≠0) then begin

mod это деление нацело, то есть

14 mod 7=0 - 14 делится нацело на 7.

только вместо знака ≠ надо писать знаки

$< >$

если не сработает, попробуй

$> <$