Program sum;
Var a,b,c,d,e,f:real;
Begin
Write ('число a='); Read (a);
Write ('число b='); Read (b);
Write ('число c='); Read (c);
d:=a+b+c;
e:=a*b*c;
f:=d/3;
WriteLn ('Сумма чисел=',d);
Writeln ('Произведение чисел=', e);
Writeln ('Среднее арифметическое чисел=', f);
end.
N=2^i, где N - мощность алфавита (кол-во символов, котррые в нём используются), i - информационный вес символа в битах
256 = 2^8 => i =8 бит
I (это не l, а заглавная i) - информационный объем, находящийся по формуле:
I = K × i, где K - кол-во символов сообщения
I = 4096 × 8 = 32768 бит
Переведём в килобайты:
32768 : 8 = 4096 байт
4096 ÷ 1024 = 4 КБ
Ответ: 4 кб
Var
n,x:integer;
a,b,c:byte;
Begin
read (n);
c:=n div 100 mod 10;
b:=n div 10 mod 10;
a:=n div 1 mod 10;
x:=100*a+10*b+1*c;
write (x);
<span>end.</span>
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
В онлайне сделать попробуй