Введите число от 10-999
а)определить кол-во знаков в числе
б)определить,кратно ли 3

Решение на PascalABC://PacsalABC.Net// (c) NaaManvar    s : integer;begin    write('Введите число (10-999): ');    readln(s);    writeln('В числе ', s, ' ', s.ToString.Length, ' знака');    write('Число ', s);    if s mod 3 = 0 then        write(' кратно')    else        write(' не кратно');    writeln(' трём')end.