Я уже решила программу прошлый раз, но условие было удалено, поэтому вот
скрин. Параметры пришлось дорисовать, так как оказывается менять нужно было на с, а не на ...
Напиши нормально,позязя ема !!
<em>Если посмотреть, то практически русские слова заменили английскими.</em>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var a,b:real;
Read(a,b);
if a<b
then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
<em>На самом деле можно написать и несколько покороче</em>
begin
var (a,b):=ReadReal2;
if a<b then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
A:=3,14*r*r, где радиус ты должна указать
По формуле N=2^i находим сколько бит содержится в 1 символе данного алфавита:
N=32; N=2⁵ ⇒ i=5. В одном символе содержится 5 бит, значит в сообщении из 384 символов содержится 384*5=1920(бит)=0,24(кбайт).
Вроде так.