Объясните связь между дискретностью сигнала и алфавитным способом записи информации?

бег - бог - бок - бак - мак - маг -шаг

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

был уже такой вопрос отвечен.

от себя

скорость обработки, соответственно и обьемы обработки, обработка по требованию в минимальное время, что позволяет сразу использовать результаты в дальнейших операциях, точность рассчетов

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел.