Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln(' Результаты соревнований');
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
a[i,m+1]:=s;
writeln(s:5);
end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.
Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7
Первый вариант: если десятичный логарифм от (2x+3).
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.
Pascal abc.
Проверка
введите кол-во элементов массива
10
12 13 27 29 19 18 11 20 22 16
<span>сумма=187</span>
Переводим число 54 (отбросив знак) в двоичную систему счисления. Получаем число 110110₂. Допустим, для представления числа отведен один байт, тогда 54₁₀ = 0011 0110₂. Это прямой код числа.
Отрицательное число может быть представлено в обратном или дополнительном коде. В обратном коде старший (левый) разряд отрицательного числа равен единице, а остальные семь разрядов прямого кода инвертируются. Получаем 1100 1001₂ В дополнительном коде еще нужно арифметически прибавить единицу. Получим 1100 1010₂
Запись в естественной форме:
10.00761 • 10⁶ = 10007610
3218.9 • 10⁻³ = 3.2189
23,66100Е+3 = 23661
