Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764
Информационные процессы в живой природе распространены гораздо больше, чем это может показаться на первый взгляд. С ними связано опадение листвы осенью, прорастание цветов весной и другие привычные явления. Способность хранить, передавать и получать информацию — одна из особенностей живой материи. Без нее невозможен нормальный обмен веществ, приспособление к условиям окружающей среды, обучение и так далее. Информационные процессы в неживой природе также существуют, но отличаются несколькими особенностями и в первую очередь выступают в качестве меры упорядоченности системы. - Читайте подробнее на FB.ru: <span>http://fb.ru/article/240131/informatsionnyie-protsessyi-v-jivoy-prirode-ponyatie-informatsionnogo-pr...</span>
Объяснение:
во вложениях..
^ не ставится, но действие выполняется, у себя ставьте!
Пароль формируется из 6 символов,
каждый символ кодируется i - битами.
2^i =6; ---> 2^2< 6 < 2^3 ---> 3 бита для кодировки одного символа.
В одном пароле 11 символов, длина пароля =3*11=33 бита.
Каждый пароль - целое количество байтов :
33 бита =33:8 байтов =5 байтов
Для 20-ти паролей: 5*20=100 байтов.