Задача на VBA - Помощь студентам

Shat87 · 27.01.2011, 02:47

Большая просьба: Если по каким-либо причинам Вы не можете помочь с решением задачи, то убедительно прошу по возможности киньте ссылку, где я могу найти решение

Задача
Найти все такие натуральные числа, меньшие N, запись которых совпадает с последними цифрами записи их квадрата

Или хотя бы подскажите как в VBA отделить из числа единицы, десятки и т.д.

Заранее благодарен!

D@rkD@iver · 27.01.2011, 08:20

чтоб выделить единицу надо разделить на 10
что десятки то на с100 и так далее

was3110 · 27.01.2011, 18:18

В VBA действительно нет функции получения остатка, но есть функция целочисленного деления ( \ обратная дробь). Поэтому

Цитата:

Dim y As Integer, e As Integer, d As Integer
y = 254
e = y - (y \ 10) * 10 'последняя цифра
d = y - (y \ 100) * 100 'две последних цифры

27.01.2011, 02:47	#1
Shat87 Новичок Джуниор Регистрация: 27.01.2011 Сообщений: 1	Задача на VBA Большая просьба: Если по каким-либо причинам Вы не можете помочь с решением задачи, то убедительно прошу по возможности киньте ссылку, где я могу найти решение Задача Найти все такие натуральные числа, меньшие N, запись которых совпадает с последними цифрами записи их квадрата Или хотя бы подскажите как в VBA отделить из числа единицы, десятки и т.д. Заранее благодарен!

27.01.2011, 08:20	#2
D@rkD@iver Форумчанин Регистрация: 28.07.2009 Сообщений: 189	чтоб выделить единицу надо разделить на 10 что десятки то на с100 и так далее пишу программы для студентов и школьников на Pascal, Delphi, C++, WINAPI, assembler обучаю программированию на паскале(дистанционно);mail: hruslow@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на VBA	Zhene4ka2607	Помощь студентам	1	08.06.2009 14:48
Задача по VBA	NitriNKa	Помощь студентам	8	23.05.2009 15:46
Задача по VBA!!	NitriNKa	Помощь студентам	3	22.04.2009 11:02