Question

4) Найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.
5) Найти все двузначные числа, сумма квадратов цифр которых делится на 17.​

Answer 1

Відповідь:

Пояснення:

option explicit

'демонстрация синтаксиса и семантики поразрядных битовых операций

dim a,b

a=Cint(inputbox("Введите два целых числа","введите первое число"))

b=Cint(inputbox("Введите два целых числа","введите первое число"))

msgbox a&" and "&b&" = "&(a and b),,"Битовая операция AND"

msgbox a&" or "&b&" = "&(a or b),,"Битовая операция OR"

msgbox a&" xor "&b&" = "&(a xor b),,"Битовая операция xor"

msgbox " not "&a&" = "&(not a),,"Инверсия битов в числе A"

Пример 15

option explicit

dim a

'Программа вывода битовой последовательности положительного десятичного числа

a=InputBox("Ввод числа","Введите число типа INT",0)

if IsNumeric(a) then

dim str

While a>0

str=CInt(Cint(a) and 1)&Str

a=a\2

WEnd

msgbox str

else msgbox "Ошибка ввода"

end if