<span>Программа на VBA Excel</span>
<span>Sub pr02()</span>
S = 0
For n = 10
To 99
<span>
If Int(n / 2) = n / 2 Then
</span><span> Else</span><span>
S = S + n</span><span>
End If
</span>
Next n
Cells(2, 2)
= S
End Sub
<span>Печатает в ячейке B2 сумму 2475</span><span> </span>
Ехе. игры text. текстовые bat. текстовые расширеные и музыкальные.
Шестнадцатиричное число отображается в двоичную систему счисления путем представления каждой шестнадцатиричной цифры в виде тетрады - группы из четырех двоичных цифр. В самой левой тетраде незначащие двоичные нули отбрасываются.
Наименьшее четырехзначное шестнадцатиричное число - это 1000(16). Его двоичная запись 0001 0000 0000 0000(2) или 1 0000 0000 0000(2).
Но по условию нулей должно быть не 12, а семь, поэтому "лишние" пять нулей заменяем единицами. Поскольку число должно быть наименьшим, единицы ставим справа: 1 0000 0001 1111(2).
Осталось заменить каждую тетраду шестнадцатиричной цифрой: 101F(16)
<u><em>Ответ:</em></u> 101F
Var
m,n,s,p:integer;
Begin
read(m,n,s);
p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}
If (p mod m = 0) and (p mod n = 0) then
writeln('Числа ',m,' и ',n,' являются делителями числа ',p)
else
writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);
end.
Объяснение из скобок можешь убрать
Ответ: В ..................................