div это деление нацело то есть без остатка
mod это остаток от деления
345 div 10 = 34
467 mod 100 =
67
398 div 10 mod 10 =
39
27 div 5 =
5
45 mod 9 =
0
753 div 10 mod 5 =0
Var
n,i,a:integer;
p:longint;
begin
Write('Введите четырехзначное число: '); Read(n);
Write('Введите число для проверки кратности: '); Read(a);
p:=1;
for i:=1 to 3 do
begin
p:=p*(n mod 10);
n:=n div 10
end;
p:=p*n;
if (p mod a)=0 then Writeln('Число кратно ',a)
else Writeln('Число не кратно ',a)
end.
<em><u>Тестовое решение:</u></em>
Введите четырехзначное число: 3673
Введите число для проверки кратности: 7
Число кратно 7
Var
n, s: integer;
begin
readln(n);
n := abs(n);
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
writeln(s);
end.
Имя объекта: Мяч
Назначение: Игровой предмет
Форма: Шар
Цвет: Красный
Размер: Диаметр 25 см
Действия: Лежать, Катиться, Подпрыгивать, Отскакивать.
Отношения: ИГРАЕТ (человек ИГРАЕТ мячом)
5 бит.
2 в 5-ой степени = 32