Объяснение:
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.
Смотри.
икс не кратно 7 записывается так:
x mod 7≠0
пример:
If (x mod 7≠0) then begin
mod это деление нацело, то есть
14 mod 7=0 - 14 делится нацело на 7.
только вместо знака ≠ надо писать знаки
если не сработает, попробуй
