20-04-2014 11: 01: 55 3 уровень 15. заданы координаты (на плоскости) вершин четырехугольника. определить, является ли он: а) ромбом;

Var     x,y,s: real;     i,f: integer; begin f: =1; for i: =1 to 4 do   begin     write('введите координаты точки: ');     readln(x,y);     if i=1 then       s: =sqrt(x*x+y*y)       else if s< > sqrt(x*x+y*y) then f: =0;     end; if f=1 then     writeln('да, является ромбом')     else writeln('нет, не является ромбом'); end.

var

  n, n1, n2, n3: integer;

begin

    write ('введите трехзначное число: ');

    readln (n);

    if not ((n > = 100) and (n < = 999)) then begin

      writeln ('число не является трехзначным! ');

      exit;

    end;

    n1 : = n div 100;

    n2 : = (n div 10) mod 10;

    n3 : = n mod 10;

    writeln ('среднее арифметическое цифр = ' + floattostr ((n1 + n2 + n3) / 3));

end;

const n = 100;

var a: array [1..n] of integer;  

        i, count, sum, p: integer;

        arith: real;

        mult: biginteger;

       

begin

        randomize;

        for i: = 1 to n do a[i]: = random(1, 1000);

       

        sum: = 0;

       

        for i: = 1 to n do begin

            if a[i] mod 2 = 0 then begin

                inc(count);

                sum: = sum + a[i];

                arith: = sum / count;

            end;

            if a[i] mod 2 = 0 then begin

                p: = a[i] * a[i];

                if mult = 0 then mult: = p else mult: = mult * p;

                // произведение капец длинное

                if a[i] mod 3 = 0 then a[i]: = i * i;

            end

        end;

       

      writeln(arith);

      writeln(mult);

end.