Решить эти с составлением дано1) секретарь может набирать текст со скоростью 256 символов в минуту. сколько кбайт информации он сможет ввести в компьютер за 10 минут, если используется алфавит из 256 символов? 2) узнав, что маша живет на пятом этаже многоэтажного дома, дима получил 5 бит информации. сколько этажей в доме?

1. 256 в минуту * 10 минут = 2560 символов, один символ несёт 256 log 2 = 8 бит информации. 8 бит * 2560 символов = 20 480 бит, или 2  560 байт, или 2.5 кбайта. 2. 2^5=32, значит, 32 этажа.

Var   s: string;         i,k,c: integer; begin        write('введите текст: ');         readln(s);         i : = length(s);         k: =0;         for i: =1 to length(s) do         if s[i] in ['.','? ','! '] then inc(k);         if i > 0 then begin         c : = 1;         while i > 0 do begin         if s[i] = ' ' then         inc(c);         dec(i);         end;         end         else         c : = 0;         writeln('количество слов в тексте: ', c);         writeln('количество предложений в тексте: ', k); end.

Цикл с предусловием это такой цикл, в котором условие проверяется перед выполнением тела цикла. а цикл с постусловием - на оборот, он сначала выполнит, а потом проверит условие и если условие true, то цикл завершится. цикл с постусловием, можно использовать в таких ситуациях, когда надо что-то сделать и если чего-то не хватает, то сделать еще раз. напрмер  отправить письмо на email, а если не отправилось, то повторить еще 3 раза. сначала выполнится тело цикла, в котором находятся функции отправки письма и если отправка удачная, то сообщаем until() true. иначе тело выполнится еще и еще и еще кучу раз, если мы не задали счетчик в теле цикла, как цикл с предусловием можно использовать, если надо проверять какое-то значение перед выполнением тела цикла и тебе не важно, должно ли оно хоть раз выполниться. например запросить пароль у пользователя. но если пользователь уже ввёл пароль, то зачем его запрашивать? тут можно было бы использовать while