<em><u>PascalABC.Net
</u></em>var
x,y,z:integer;
m:single;
begin
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m)
end.
<em><u>Тестовое решение:</u></em>
Введите x,y,z: 3 6 -2
-0.3
<em><u>Borland Pascal 7.01</u></em>
uses Crt;
function max(m,n:integer):integer;
begin if m>n then max:=m else max:=n end;
function min(m,n:integer):integer;
begin if m<n then min:=m else min:=n end;
var
x,y,z:integer;
m:real;
begin
ClrScr;
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
Введите x,y,z: 3 6 -2
-3.0000000000E-01
Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
А) 100101001,101
Б) 10000111,11
в)100111010,10010111
г) 10101,01010001011101110100010111010001011101000101
Старший разряд числа равен:
1. Перенесем запятую на два знака влево:
Старший разряд числа будет равен:
То есть число уменьшится(не в
раз, как указано в первом комментарии.
2.Перенесем запятую на три знака вправо от предыдущего числа:
Старший разряд числа будет равен:
То есть число увеличится.
В задании явно не указано от какого числа переносить запятую вправо , поэтому перенесем также от исходного числа:
Старший разряд числа будет равен:
То есть число увеличится(не в
раз, как указано в первом комментарии.
Ответ:
М = 40
К = 6
Таблицу смотри на картинке