Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.
<span>A:=X div 1000=1234/1000=1
B:= X mod 1000 div 100=(1234/1000)/100=234/100=2
C:= X mod 100 div 10=(1234/100)/10=34/10=3
D:= X mod 10=1234/10=4
Y:=1000*d+100*c+10*b+a=1000*4+100*3+10*2+1=4321
</span><span>F:= X - Y+1=1234-4321+1=-3086</span>
uses crt;
var ch,a:integer;
begin
readln(ch);
readln(A);
if ((ch div 10)+( ch mod 10)) mod a = 0 then
writeln('YES') else writeln('NO');
readln;
end.
2.
uses crt;
var i,os:integer;
a:array[1..31] of integer;
begin
randomize;
os:=0;
for i:=1 to 31 do
begin
a[i]:=random(5)+0;
if a[i]=0 then inc(os);
end;
for i:=1 to 31 do
write(a[i],' ');
writeln;
if os = 10 then
writeln('YES') else writeln('NO');
readln;
end.