Другие языки программирования и технологии
Лаба по информатике на циклы. Сижу уже второй час(( Не могу составить условие.
Задача: Найдите все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9. x = 10 Do x = x + 1 a = x \ 10 b = x - a * 10 If ,,,Then MsgBox (x) Loop Until x = 100 Может кто подскажет как составить это условие?)))) И что это за такие числа?)))
Игорь Мировицкий
674
на все числа сразу или по отдельности?
Однажды Дань Шэнь шёл по дороге и увидел человека, сидящего под деревом. Человек сказал:
— Я не ел целый день, дай мне чего-нибудь!
— Но у меня ничего нет, — ответил Дань Шэнь.
— Тогда не мог бы ты залезть на дерево и собрать для меня немного плодов, так как я не умею лазить по деревьям?
Дань Шэнь уже было собрался подняться на дерево, но спросил:
— А что же ты ел в последний раз?
— Добрый человек залез на дерево и угостил меня.
Тогда Дань Шэнь пошёл прочь со словами:
— Мне будет проще, если ты научишься лазить по деревьям!
— Я не ел целый день, дай мне чего-нибудь!
— Но у меня ничего нет, — ответил Дань Шэнь.
— Тогда не мог бы ты залезть на дерево и собрать для меня немного плодов, так как я не умею лазить по деревьям?
Дань Шэнь уже было собрался подняться на дерево, но спросил:
— А что же ты ел в последний раз?
— Добрый человек залез на дерево и угостил меня.
Тогда Дань Шэнь пошёл прочь со словами:
— Мне будет проще, если ты научишься лазить по деревьям!
Евгений Рыкало
6 247
а можно математическоерешение увидеть? ) Короче я придумал как решить, но только я не знаю визул бэйсика, ты же на нем хочешь делать?
Ваня Квитковский
3 365
x = 10
Do
x = x + 1
a = x \ 10
b = x - a * 10
i = 2
Do
x2 = x * i
a2 = x2 \ 10 #Тут необходимо отделить целую часть числа
b2= x2 - a2 * 10
if (a+b) = (a2+b2) Then MsgBox (x)
Loop Until i = 10
Loop Until x = 100
Блин, да что ж за язык-то такой дебильный.. .
Нужен ещё один цикл для перемножения цифр текущего числа x на 2,3,4,5,6,7,8,9.
Do
x = x + 1
a = x \ 10
b = x - a * 10
i = 2
Do
x2 = x * i
a2 = x2 \ 10 #Тут необходимо отделить целую часть числа
b2= x2 - a2 * 10
if (a+b) = (a2+b2) Then MsgBox (x)
Loop Until i = 10
Loop Until x = 100
Блин, да что ж за язык-то такой дебильный.. .
Нужен ещё один цикл для перемножения цифр текущего числа x на 2,3,4,5,6,7,8,9.
Асхат Сандыбаев
2 339
Асхат Сандыбаев
Чо, работает?
Ваня Квитковский
во круто, только тут еще надо учесть, что при умножении на 2,3,4,5,6,7,8,9 могут получится 3-чзначные числа
Игорь Мировицкий
Спасибо!!! А то у меня у меня чуть мозг не взорвался))))))
Я на радостях даже через For сделала!!!
Я на радостях даже через For сделала!!!
Похожие вопросы
- сделала лабу по информатике,завтра защита,сделать -то сделала ,а объяснить не могу...картинка внутри
- Написать код С++ простая лаба по информатике
- Лаба по информатике.. . =(
- Как вы думаете, мужчина, который сидит больше 10 часов в день за компом дает благоприятные результаты?)
- Впервые открыла Visual C++ и уже целый час не могу написать простейшую программку
- Почему в майкрософте сидят столько "Программистов" и не могут нормальный софт делать? а Linux почему то лучше его?
- Информатика. Программирование. Обработка массивов данных. Помогите составить алгоритм и прог. код к нему.
- составить программу вычисление 2**64(два в шестьдесят четвёртой степени), на паскале, с помощтью циклов
- Информатика. Составить программу на языке Pascal
- помогите решить задачи с циклом по информатике в программе паскаль
sk = 0
s = 0
c1 = Val(Mid(i, 1, 1))
c2 = Val(Mid(i, 2, 1))
s = c1 + c2
j = i * 2 ' Здес вместо 2 можешь ставлять числа до 9 согласно условию
For k = 1 To Len(j)
sk = sk + Val(Mid(j, k, 1))
Next
If sk = s Then ListBox1.AddItem i
Next