Если число оканчивается на ноль или пять,то оно кратно 5.
Так что,если в числе N на конце стоит 0 или 5,то сумма его цифр кратна 5.
Шифрование - это одно из свойств двоичного кода
Var a:uint64;
k:Integer;
begin
write ('Введите число: ');
readln (a);
repeat
k:=k+1;
a:=a div 10
until a=0;
writeln('Количество цифр: ',k)
end.
var a:string;
begin
write ('Введите число: ');
readln (a);
writeln('Количество цифр: ',Length(a))
end.
насколько я знаю вирус только сам распостраняется без вашего согласия