Расскажите, как помехи влияют на передачу информации. примеры

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

var s:string;

len,i,n:integer;

begin

write ('Введите строку:'); readln (s);

write ('введите N:'); readln(n);

len:=length(s);

if len>n then s:=copy (s,len-n+1,len-n)

else if len<n then for i:=len+1 to n do insert('.',s,1);

writeln ('Итоговая строка: ');

write (s);

readln;

end.

Введите строку:qwertyuiopa

введите N:5

Итоговая строка:

uiopa

Введите строку:abrik

введите N:10

Итоговая строка:PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

var s:string;

len,i,n:integer;

begin

write ('Введите строку:'); readln (s);

write ('введите N:'); readln(n);

len:=length(s);

if len>n then s:=copy (s,len-n+1,len-n)

else if len<n then for i:=len+1 to n do insert('.',s,1);

writeln ('Итоговая строка: ');

write (s);

readln;

end.

Введите строку:qwertyuiopa

введите N:5

Итоговая строка:

uiopa

Введите строку:abrik

введите N:10

Итоговая строка: