26 символов
2 в степени i , i = 5 бит.
var z,x,c: real;
begin
write('стороны треугольника: ');
readln(z,x,c);
if (z + x <= c) or (x + c <= z) or (z + c <= x) then writeln ('нет такого треугольника')
else writeln('Периметр треугольника = ',z+x+c)
end.
1011100
+ 100101
=
10000001
//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>