0 & 1 v 0 & 1 = 0 v 0 = 0
Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.
Ни для кого не секрет, что в геймерских клавиатурах самыми часто используемыми клавишами являются W,A,S,D. Иногда бывало так, что именно эти клавиши выходили из строя со временем и клавиатуру приходилось выбрасывать. В случае с A4Tech Bloody B188, В328, В418 было использовано необычное решение — ключевые кнопки получили механические переключатели Light Strike со скоростью отклика 0,2 мс. Полный ход клавиш равен 2,2 мм, ход до срабатывания — 1,5 мм. По заявлению производителя, новые переключатели срабатывают на 30% быстрее, чем обычные механические переключатели.
Ответ будет "Компьютер", как раз таки на нем и обрабатывается и храниться информация..