<span>те которые храняться на цифровых носителях, которые состоят из разного набора чисел</span>
N = 2ˣ
N - мощность
x - вес одного символа
Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
WriteLn(a);
End.
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
if x < 3 then
Println(x / (Sqr(Sqr(x)) + 6))
else
Prinln(-x * x + 3 * x + 9)
end.