Raznost,i,sumnech,sumch,k,code,chislo: Integer;
Stroka: String;
begin
Read(chislo);
str(Chislo,Stroka);
sumnech:=0;
sumch:=0;
for i:=1 to Length(stroka) do
begin
val(Stroka[i],k,Code);
if odd(i) then
sumnech:=sumnech+k
else
sumch:=sumch+k
end;
Raznost:=abs(sumch-sumnech);
if raznost mod 11 = 0 then
writeLn('Delitsya na!')
else
writeLn('Ne delitsya na!')
end.
Сообщение отредактировано: Bold -