Вспомните по одному объекту каждого из множеств и запишите их единичные имена объектов. общее имя единичное имя мореплаватель ученый композитор писатель сказочник герой информационный процесс информационный носитель единица информации программное обеспечение текстовый процессор

Мореплаватель - витус беринг  учёный - дмитрий менделеев  композитор - ричард леверидж  писатель - чехов  сказочник - ханс андерсен  герой - евгений онегин  информационный процесс - поиск информации  система счисления - восьмеричная  единица информации - байт  программное обеспечение - бухгалтерская программа  текстовый процессор - microsoft word  кажется так

Уверен, что формула в условии написана неверно, но уж как var   a,b,c: real; begin   write('введите a,b,c: '); read(a,b,c);   writeln('результат: ',max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5)) end. тестовое решение: введите a,b,c: -3 5.5 4 результат: 31 а вот так, на мой взгляд, должно быть: var   a,b,c: real; begin   write('введите a,b,c: '); read(a,b,c);   writeln('результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1. end. тестовое решение: введите a,b,c: -3 5.5 4 результат: 0.6

Const   m = 3;   n = 4; var   a: array[1..m, 1..n] of integer;   b: array[1..m] of real;   i, j, k: integer;   min: real; begin   writeln('введите оценки студентов');   for i : = 1 to m do   begin       b[i]: =0;       for j : = 1 to n do       begin read(a[i,j]); b[i]: =b[i]+a[i,j] end;       b[i]: =b[i]/n   end;   k: =1; min: =b[1];   for i: =2 to 3 do       if min> b[i] then begin min: =b[i]; k: =i end;   writeln('студент номер ',k,' имеет минимальный cредний ',min: 5: 2) end. тестовое решение: введите оценки студентов 5 4 4 3 3 5 3 4 4 5 4 5 студент номер 2 имеет минимальный cредний   3.75