Массиве g(10) хранятся гипотенузы 10 прямоугольных треугольников, а массиве с(10) -их катеты. для каждого из треугольников найти второй катет массивы с именами в и s.

квадрат катета   равен разности квадрата гипотенузы и квадрата другого катета

program raf105;

var

  b,s,s2: array[1..10] of real;

  i: integer;

begin

  for i: =1 to 10 do

  begin

    b[i]: = random(11,20);

    s[i]: = random(2,10);

    s2[i]: = sqrt(power(b[i],2) - power(s[i],2));

    writeln('треугольник №',i);

    writeln('гипотенуза: ',b[i]);

    writeln('катет 1: ',s[i]);

    writeln('катет 2: ',s2[i]: 0: 1);

    writeln;

  end;

end.

pascalabc

косомодальный октагент, у которого гомодикаты антиволютивны

октагент- о

гомодикаты- г

1. «неверно, что если о не косомодален, то его г не антиволютивны» или по другому

«неверно, что если о не косомодален, то его г волютивны» или

«о не косомодален, но его г волютивны»

2.

«неверно, что о косомодален тогда и только тогда, когда его г волютивны» или

«о косомодален, но его г антиволютивны или о не косомодален, но его г волютивны»

3.«неверно, что если о косомодален, то его г не антиволютивны» или

«о косомодален, но его г антиволютивны»

4.«неверно, что о косомодален, только если его г волютивны» .

Var    s: string;     i, k: integer;     b: boolean; begin    readln(s);     var n : = length(s);     i : = 1;     repeat        b : = true;         while (i < = n)  and  (s[i] < > ' ') do     begin           if b then           begin                      k : = i;                       b : = false            end;           inc(i)      end;       if i - k = 4 then     begin              delete(s, k, 5);             i : = k;               n : = n - 5        end          else inc(i)      until i > n;       write(s) end.