Представьте нижеперечисленные объекты как системы: а) авторучка
б) дом
в) часы
г) велосипед

Укажите для каждой системы, что в ней является элементами и каковы связи между элементами.​

фамилия

                  имя

          отчество

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

если числа небольшие и x в n степени умещается в longint, то можно в цикле от 1 до n умножать на x

var i,x,n: integer;

l: longint;

begin

readln(x,n);  

l: =1;  

for i: =1 to n do

l: =l*x;

write(l);

end.  

переведем информационный объем сообщения из килобайт в биты:

i  = 1.5*1024*8=12288.

i=3 (2^3=8) бита приходится на один символ:

к=i/i=12288/3=4096 символов.

ответ: 4096 символов.