Е обозначает число 10
68,38456
150,56
Program perebor;
const n=100;
var a:array[1..n] of integer;
i,j,k,l: integer;
begin
<span>writeln('Ввести массив из ',n,' целых чисел');
</span>for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
for l:=k+1 to n do
if a[i]+a[j]+a[k]+a{l}=0
then writeln(a[i],' ',a[j],' ',a[k],',a[l] );
end.
110110,1=54,5("10")=36,8("16")=66,4("8")
Var
a,b,c,S,P;
begin
writeln ('Введите А ');
readln (a);
writeln ('Введите B ');
readln (b);
c:=<span>sqrt(a*a+b*b);</span>
P:=a+b+c;
writeln ('Площадь треугольника равна --> ',P);
end.
48 / 128сек = 0,375 Мбайт
0,375 Мбайт * 8 = 3 Мбит
или
0,375 Мбайт * 1024 = 384 Кбайт