Составьте пары сравнимых понятий и укажите их общий признак. понятия: веселье, осень, монитор, клавиатура, грусть, стол, гуляш, арбуз, самолет, автомобиль, береза, диван, осина.

веселье-грусть(чувства)

осень-

монитор-клавиатура (части компа)

стол-диван(мебель)

гуляш-арбуз(еда)

автомобиль-самолет(техника)

береза-осинв(деревья) 

 

сравнимые понятия в парах:

веселье - грусть (чувства)

монитор - клавиатура (компьютер)

самолет - автомобиль (средства передвижения)

осина - береза (лиственные деревья)

гуляш - арбуз (пища)

стол - диван (мебель)

ну, а слово осень остается без пары.

1. uses crt; var n: string; begin read(n);   writeln(strtoint(n[1])*strtoint(n[2])*strtoint(n[3])); end.2.uses crt; var n,i: integer; res: double; beginread(n); for i: =1 to n dores: =res+cos(1/i); writeln(res: 5: 3); end.3.uses crt; var n,i: integer; mult: real; a: array[1..100] of real; beginmult: =1; writeln('input n and elements of array.'); read(n); for i: =1 to n dobeginread(a[i]); if i mod 2=0 then  mult: =mult*a[i]; end;   writeln(mult); end.4.uses crt; var n,i,sum: integer; a: array[1..100] of integer; beginwriteln('input n and elements of array.'); read(n); for i: =1 to n doread(a[i]); i: =1; while (a[i]< > 0) and (i< =n) dobeginif a[i] mod 2=0 thensum: =sum+a[i]; i: =i+1; end; writeln(sum); end.

pascalabc.net

- б) -

begin

  var p : = arrrandom(10, -10, 10);

  print('p: ');

  p.println;

  var b : = p.select(q -> 0.5 * sin(q) + 0.1).toarray;

  print('b: ');

  if b.count(p -> p > 0) < = 5 then

    b.transform(q -> q > 0 ? 1.0 : q);

  b.println

end.

- в) -

begin

  var x: array of real : = (-1, -2, 3, 4, 5, -7, -12, 1,

      0.8, -6, 5, 7, -2, 0.1, 0, 3, -8, -5);

  x.println;

  var x1 : = x.where(p -> p > 0).println.toarray;

  var x2 : = x.where(p -> p < 0).println.toarray;

  var x3 : = x.indices(p -> p > 0).select(p -> p + 1).println.toarray;

  var x4 : = x.indices(p -> p < 0).select(p -> p + 1).println.toarray

end.