Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
11.13.15.17.19.21.23.25.27.29.31.33.35.37.39.41....(шаг +2)т.е. число все время увел на 2
22.44.66.88.110.132.154...(шаг +22)т.е. число все время увел на 22
91.81.71.61.51.41.31.21.11.1....(шаг -10)т.е. число все время уменьна 10
_____________________________________
<span>23.53.73.83.(в числе 37 окончание на 7, а во всех остальных окончание 3)
</span>и так далее
Невозможность или сложность создания реальной физической модели
Количество символов в алфавите N=2^i, где i- количество бит на 1 символ.
i=I/k, где I- информационный объем сообщения (бит), k- количество символов в сообщении.
k=3*64*32= 6144
i=(15*1024*8)/ 6144= 20 бит
N=2^20= 1048576 символов
Отсутствует раздел перемененных, в паскале нужно перечислять используемые переменные в самом начале программы