1)
В этом задании ошибка в условии.
2)
24₁₆=2*16+4=36₁₀
3)
236₈+6С₁₆+111010₂=(2*8^2+3*8+6)+(6*16+12)+(1*2^5+1*2^4+1*2^3+1*2)=
158+108+58=324₁₀
Среднее 324/3=108₁₀
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
Const
n=10;
var
i,m,k:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
Writeln;
Writeln('Введите целое число: '); Read(m);
k:=0;
for i:=1 to n do
if a[i]<m then Inc(k);
Writeln('Количество чисел, меньших ',m,' равно ',k)
end.
Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5
Информаци + о + н + 'ые'
'тех' + н + о + лог + ии
<h3>То, что выделено в кавычках невозможно получить из этих слов.</h3>
var a,x,b:real;
Begin
read(a,x);
if x>4 then b:=x*ln(x*x);
if x<3 then b:=a*cos(x);
writeln(b);
End.