Экономика
выдает ошибку Операция > не может быть применена к типам boolean и integer
Program qq;
var a,b,c,max,min,med : integer;
begin
writeln ('введите три числа');
read (a,b,c);
if c>b>a
then begin
max := c;
med := b;
min := a;
End;
if b>a>c
then begin
max := b;
med := a;
min := c;
End;
if a>c>b
then begin
max := a;
med := c;
min := b;
End;
writeln ('наибольшее число', max);
writeln ('среднее число', med);
writeln ('наименьшее число', min);
End.
Системы счисления
1. Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.
2. Перевести данное число в десятичную систему счисления.
3. Сложить числа.
4. Выполнить вычитание.
5. Выполнить умножение.
1. а) 575(10); б) 748(10); в) 933,5(10); г) 1005,375(10); д) 270,44(10).
2. а) 1010000(2); б) 10010000(2); в) 1111010000,01(2); г) 101000011,01(2); д) 1004,1(8); е) 103,8C(16).
3. а) 1011110101(2)+1010100110(2); б) 1001100011(2)+1110010010(2); в) 1111110100,01(2)+110100100,01(2); г) 755,36(8)+1246,5(8); д) 8D,2(16)+63,8(16).
4. а) 1100111110(2) – 1101001(2); б) 1101111011(2) – 1101110101(2); в) 1101001010,011(2) – 1010011110,101(2); г) 1632,1(8) – 706,34(8); д) 283,C(16) – 19C,8(16).
5. а) 111000(2) ´ 1101001(2); б) 133,6(8) ´ 73,4(8); в) 46,8(16) ´ B,A(16).
