Как определить, делится ли число на «3» без остатка, не используя деления и определения остатка от деления

@ermolin778 · Регистрация: 10.04.2013

Студворк — интернет-сервис помощи студентам

Написать подпрограмму, которая определяет, делится ли число на «3» без остатка,
не используя деления и определения остатка от деления. Проверку осуществлять на
числах более 1 млн.

@~~Апострофф~~ · 05.06.2013, 15:47

Делалось для VB. Уточняйте диалект Бэйсика на будущее.

Visual Basic

function d3(v)as boolean
dim t,i
while len(v)>1
  t=0
  for i=1 to len(v)
    t=t+mid$(v,i,1)
  next
  v=t
wend
d3=v=3or v=6or v=9
end function
 
sub test
debug.print d3("123456789123456789")
end sub

@ermolin778 0 / 0 / 0 Регистрация: 10.04.2013 Сообщений: 20
		1
	Как определить, делится ли число на «3» без остатка, не используя деления и определения остатка от деления 05.06.2013, 10:42. Показов 3154. Ответов 1 Метки нет (Все метки) Написать подпрограмму, которая определяет, делится ли число на «3» без остатка, не используя деления и определения остатка от деления. Проверку осуществлять на числах более 1 млн. 0

	05.06.2013, 15:47

Опции темы

Как определить, делится ли число на «3» без остатка, не используя деления и определения остатка от деления

Решение