задача с "IF"

[timaxv]

Даны 2 целых числа. Если оба числа четные, то разделить их на 2, иначе – возвести в квадрат.

[Илья РООгулин]

if a div 2 = 0 and b div 2 = 0 then
a = a^2
b = b^2
else 
a = a/2
b = b/2
end if

вот и вся идея. Хотя может надо со скобками в if "поиграть"

[timaxv]

благадарю)) интересное решение))

[Serge_Bliznykov]

две ошибки.
1-я. перепутано.
a div 2 =0 и b div 2 =0 - это как раз ЧЁТНЫЕ значения.
а если они чётные, их надо разделить на два.

2-я. возвести в квадрат записывается так:

a = a * a
b = b * b

[Илья РООгулин]

Сообщение от Serge_Bliznykov

две ошибки.
1-я. перепутано.
a div 2 =0 и b div 2 =0 - это как раз ЧЁТНЫЕ значения.
а если они чётные, их надо разделить на два.

2-я. возвести в квадрат записывается так:

a = a * a
b = b * b

точно, насчет перепутано. вот что значит торопиться. а насчет того что я написал a^2 почему это ошибка? это же и так, и так верно. скорее всего недочет у меня.

[Hugo121]

a div 2 = 0

- это какой язык?

[Илья РООгулин]

Сообщение от Hugo121

a div 2 = 0

- это какой язык?

а в vba не поддерживается div? если mod есть, то div должен быть.

[Hugo121]

mod есть, а эту строку с div редактор не признаёт вообще.

[Илья РООгулин]

Сообщение от Hugo121

mod есть, а эту строку с div редактор не признаёт вообще.

хм. странно.

[RAN.]

Действительно странно

PublishObject.DivID Property
Help > Excel Object Model Reference > PublishObject Object > Properties
PublishObjects.Item Property
Help > Excel Object Model Reference > PublishObjects Object > Properties
PublishObjects.Add Method
Help > Excel Object Model Reference > PublishObjects Object > Methods
PublishObject Object Members
Help > Excel Object Model Reference > PublishObject Object