Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Andryshe4ka
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 3
#1

Дано натуральное число. Найти сумму квадратов всех его цифр - VBA

04.06.2015, 11:26. Просмотров 987. Ответов 1
Метки нет (Все метки)

Дано натуральное число n. Найти сумму квадратов всех его
цифр. Для ввода исходных данных и вывода результата
создать диалоговое окно с помощью формы. Значение n
ввести с помощью поля ввода TextBox, значение суммы
вывести на надпись.

Если кто может вот решение в паскале, но мне нужен в VBA!
Pascal
1
2
3
4
5
6
7
8
9
10
var n,sum:integer;
begin
readln(n);
sum:=0;
while n>0 do begin
sum:=sum+sqr(n mod 10);
n:=n div 10;
end;
writeln (sum);
end.

http://www.cyberforum.ru/vba/thread1335951.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2015, 11:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано натуральное число. Найти сумму квадратов всех его цифр (VBA):

Дано натуральное число n. Определить, сколько парных цифр в числе n. Чему равна сумма нечетных его цифр?
Помогите! Не могу решить сложное задание в Excel Дано натуральное число n....

Дано натуральное число а. Найти произведение четных цифр этого числа
Добрый день! Ребята помогите пожалуйста с задачей, нужен код для VBA. Заранее...

Дано натуральное число N. Поменять порядок цифр числа N на обратный
Дано натуральное число N. Поменять порядок цифр числа N на обратный. Freebasic

Дано натуральное четырёхзначное число. Нужно записать его наоборот
Помогите пожалуйста разобраться с пользовательской функцией!

Дано натуральное число. Определить количество цифр "3" в нем
Дано натуральное число. Определить количество цифр "3" в нем

1
m-ch
5247 / 794 / 261
Регистрация: 25.02.2011
Сообщений: 1,094
Записей в блоге: 1
04.06.2015, 12:28 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
Sub www()
    Dim n&, s&
    n = Val(InputBox("Введите n", , 1234))
    While n
        s = s + (n Mod 10) ^ 2
        n = n \ 10
    Wend
    MsgBox "Сумма квадротов цифр числа " & n & " равна " & s
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2015, 12:28
Привет! Вот еще темы с решениями:

Дано двузначное число. Определить, кратна ли трем сумма его цифр
дано двузначное число. Определить кратна ли трем сумма его цифр.

Дано трехзначное число. Проверить, будет ли сумма его цифр четным числом
Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом....

Найти сумму квадратов всех положительных элементов вектора
проблема прост. пропустил занятие, когда объясняли как делать задание, теперь...

Найти сумму квадратов всех целых чисел, дающих при делении на 5 в остатке 2
Найти сумму квадратов всех целых чисел,дающих при делении на 5 в остатке 2,из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru