//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f) thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.
//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.
//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5) thena:= a*aelsea:=a;write('a = ',a);end.
1)От 100 до 900 существует 801 число, для представления 801 различных чисел нужно 10 бит, 2 в 10-й степени =1024, а 2 в 9-й степени только 512. 128х5х10=6400 бит=800 байт 2)Известно, что с бит можно закодировать 2N различных чисел. Поскольку 26 < 119 < 27 и для каждого спортсмена число бит одинаково, то для записи каждого из 119 номеров необходимо 7 бит памяти. Поскольку промежуточный финиш велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит. 7)Решение: N = 10 х 5 + 4 х 8 = 82 N = 2i = 128 i = 7ответ: 7 бит 10)бщее количество ключей на всех уровнях 16*8=128 (чет много=)) Нам надо найти, в какую степень надо возвести 2, чтобы получить 128. 2^x=128 x=7 Вот собственно и ответ. 7 бит
//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f) thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.
//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.
//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5) thena:= a*aelsea:=a;write('a = ',a);end.
Объяснение: