<em>Паскаль</em>
var a,b,c,S,p:real;
label e;
begin
e: a:=0;b:=0;c:=0;read (a,b,c);
if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) then
begin
writeln ('Такого треугольника не существует, введите стороны заново');
goto e;
end;
if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника = ',S);
end;
end.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6