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

веселье-грусть - состояние, настроение

весна-осень - времена года

монитор, клавиатура - устройства компьютера

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

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

автомобиль-самолет - транспорт

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

Pascalabc.net (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) если под turbopascal или free то будет выглядеть иначе const      s = 10;         var    a : array of char;     i,l : integer;     r : real;       begin  setlength (a,1);   read (a[0]);   i : = 0;       while a[i] < > ' ' do    begin    i : = i +1;       setlength (a,i+1);     read (a[i]);     end;       r : = 0;   l : = i-1;       for i : = 0 to l do begin  r : = r + (ord(a[i]) - 48) * power (s,(l-i));     end;         writeln (r);           end.

Var   n,d10,d: integer; begin   write('введите двухзначное число: '); readln(n);   d10: =n div 10; d: =n mod 10;   if ((d10=1) or (d=1)) then begin       write('в число входит цифра 1');       if ((d10=7) or (d=7)) then writeln(' и цифра 7')       else writeln   end   else       if ((d10=7) or (d=7)) then writeln('в число входит цифра 7')       else writeln('в число не входят цифры 1 и 7') end. примеры работы программы: введите двухзначное число: 37 в число входит цифра 7 введите двухзначное число: 15 в число входит цифра 1 введите двухзначное число: 71 в число входит цифра 1 и цифра 7 введите двухзначное число: 28 в число не входят цифры 1 и 7