Какова мощность алфавита с которого записано сообщение содержащее 2048 символов если его объем составляет 1.25 кбайта

1.25 кб=1280 байт байт=8 бит 1,25 кб=10240 бит   в 10240 бит вместилось 2048 символов, потому что 10240 бит/2048 символов=5 бит/символ. 2^5=32 в итоге ответ: мощность алфавита 32 бита

Что касается конкретной программы - ! 1. описываем нужные нам переменные - это будут стороны прямоугольника a и b. поскольку нигде ничего о размерах сторон не сказано, придется предположить, что они не обязательно будут целыми , мы опишем эти переменные, как вещественные (real), что позволит работать и с нецелыми значениями. 2. из нам известны формулы периметра прямоугольника p=2 x (a+b) и площади прямоугольника s=a x b. можно описать переменные p, s (тоже real), но смысла в этом нет, поскольку значения p и s нужны только для вывода результатов, так что проще написать нужные выражения непосредственно в операторе вывода. 3. итак, с описанием переменных закончили, можно начинать основную программу ключевым словом begin. и сразу же пишем к нему завершающий end с точкой на конце - таковы правила языка паскаль. вся программа размещается между двумя этими ключевыми словами. 4. сначала организуем ввод. это два оператора. первый оператор выводит так называемое "приглашение" - сообщает о том, что нужно ввести. второй оператор - это сам ввод. 5. а теперь, как было сказано выше, организуем вывод результатов. все это сделает один оператор вывода. программа готова! var   a, b: real; begin   write('введите стороны прямоугольника: '); readln(a, b);   writeln('периметр равен ', 2 * (a + b), ', площадь равна ', a * b) end. тестовое решение: введите стороны прямоугольника: 4 3.16 периметр равен 14.32, площадь равна 12.64

Var n,i,k,z: integer;           s: real; begin s: =0; k: =0;   repeat      write('введите кол-во дней : ');         readln(n);   until (n> =1) and (n< =31); {проверка на верное количество дней} for i: =1 to n do  begin      write ('введите значение температуры в ',i,' день : ');       readln(z);       s: =s+z;       if z> 0 then k: =k+1;   end; s: =s/n; writeln('средняя температура = ',s); if k> =5 then writeln('yes')  else writel n('no'); end.