Var s: integer;
begin
s := random(1000)+2;
writeln(s);
if (s mod 2 = 0) then writeln('Четное.')
else
writeln('Нечетное')
<span>end.</span>
Акции ростелекома потому что разница конечной и начальной цены у неё больше чем у всех остальных
Верхний левый модуль реализует функцию B & C.
Нижний левый модуль реализует функцию ¬A
Правый модуль реализует функцию B & C ∨ ¬A
998₁₀→1111100110₂
653₁₀→<span>1010001101</span>₂
У тебя не видно адресов ячеек, поэтому попробую так объяснить:
В ту ячейку, где высвечивается цена в руб. вбей формулу
=цена в долларах * на курс доллара,
при этом на курс доллара надо сделать абсолютную ссылку, чтобы ее значение не менялось при протягивании формулы вниз. Надо поставить знак $ в адрес ячейки, например, $D$1. Это можно сделать при помощи клавиши F4