Сделать на visual basic:Создать текстовый файл f и g, компанентами которого являются случайные целые числа. Записать в файл h сначала компаненты файла f, а затем компоненты файла g с сохранением порядка.

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

1+2+3-4+5-6=1

1+2+3+4/5+6-7=1

1+2+3-4+5-6+7/8=1

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.