Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
Если в число, то будет 154
На входе два числа а и б
далее проверяем
если а меньше б
то минимум равен а
иначе минимум равен б
в конце выводим минимум
и завершаем программу
<span>y:=t; - нельзя присваивать переменную одного типа переменной другого типа.
y:=pred(winter); - не существует предшественника у значения </span><span><span>winter.
</span>t:=cold; - неверное (недопустимое) значение переменной для типа t
<em><u>Ответ:</u></em> допустимы присваивания </span><span>x:=pred(spring); и </span><span><span>t:=warmth;</span></span>
<span>10111,11(двоичное)
</span>10111,11₂ = 1*2⁴ + 0*2³ + 1*2² + 1*2 + 1 + 1*1/2 + 1*1/2² =
= 16 + 4 + 2 + 1 + 0,5 + 0,25 = 23,75₁₀ (десятичное)
<span>
306(восьмеричное)
</span>306₈ = 3*8² + 0*8 + 6 = 192 + 6 = 198₁₀ (десятичное)
<span>3В(шестнадцатеричное)
3В</span>₁₆<span> = 3*16 + 11 = 59</span>₁₀<span> (десятичное)</span>