Практическая работа. Вариант № 3. Переведите числа 16, 56, 108, 198, 387, 257, 365, 365, 353, 511 в двоичную систему счисления. Полученное двоичное число должно состоять из девяти разрядов. Недостающие разряды замените нулями, приписывая их к получившемуся числу слева. Заштрихуйте клетки таблицы построчно (слева направо), начиная с верхней строки по следующему правилу: 0 в записи двоичного числа – пустая клетка, 1 – закрашенная

в оперативной памяти инфр хранится временно,и пропадает после выключения

внешняя память является долговременной памятью

800*600=480000 байт

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

друг сказал) если не правильно извини, но он вродь хорош в информе