Однажды школьник решил позвонить другу. злоумышленник оказавшийся рядом предложил ему следующий алгоритм: подойти к телефону. снять трубку. набрать номер. подождать 6 секунд. если знакомый ответит, то: сказать: «! » сообщить последние новости. узнать, что нового и как жизнь. сказать: »до свидания! » положить трубку. конец ветвления. отойти от телефона. школьник решил воспользоваться этим алгоритмом, и через некоторое время у него отключили телефон. объясните почему.​

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

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.

ответ: 0,0261 килобайта

1байт=8бит, 1кб=1024байт

214/8=26.75

26.75/1024=0.0261

1кбайт=1 тысяча байтов.значит 214бит надо превратить в байты - 1байт это 8бит; 214: 8=26,75.

26,75 x 1000=26750

вообще-то, кб> байт и надо делить, а не умножать.