1024*768*16=(2^10) * (3*2^8)*(2^4) = 3*2^22 бит =
=3*2^19 байт = 3*2^9 Кбайт=3*512 Кбайт =
=1536 Кбайт
Площадь треугольника вычисляется по формуле Герона:
var a,b,c,s,p:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:6:2);
end.
Для длин сторон а=5, b=5, с=6.
a=5
b=5
c=6
s= 12.00
Для длин сторон а=17, b=65, с=80.
a=17
b=65
c=80
s=288.00
===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
<span>N=A+B+C-N
</span>Если N=A+B, то N=A+B+C-N=A+B+C-С=A+B, следовательно N=C
<span>N=A
IF N > В THEN N = В (это условие надо нарушить A<B)
IF N < C THEN N = C </span>(это условие надо сделать A<С)
A<B и A<С
<span>
Ответ: </span><span>в) А < В и А < С</span><span>
</span>
Var n,k,s:integer;
begin
write('n='); readln(n);
s:=0;
while n>0 do
begin
k:=n mod 10;
if k mod 2 <> 0 then s:=s+k;
n:=n div 10;
end;
writeln('s=',s);
end.
Пример:
n=123456
s=9