|
|
|
новичок
участник
Last Login: 26.05.2007 20:49
Сообщ.: 6,
Visits: 6
|
|
Помогите, если не трудно! Пожжалуйста!!! Обработка чисел и числовых последовательностей. 1. Обработка чисел. Найти наименьшее общее кратное 3 заданных натуральных чисел. 2. Обработка числовой последовательности с заданным количеством элементов. В числовую переменную последовательно вводятся N натуральных k-значных чисел. Найти сумму цифр каждого числа последовательности. 3. Обработка числовой последовательности с неопределенным количеством элементов . Определить количество чисел, введенных за последним простым числом в последовательности с неопределенным количеством элементов.
|
|
|
|
|
новичок
участник
Last Login: 29.03.2007 20:51
Сообщ.: 9,
Visits: 23
|
|
| Кстати, господа, эти вопросы не так элементарны, как кажутся... Давайте обсудим... Ну про тесты на простоту я не говорю, если 100% верность - пробные деления... А вот 1. - посмотрите! Алгоритм Евклида - это да, но вот как бы его "расширить" на случай трёх чисел ?
|
|
|
|
|
Supreme Being
участник
Last Login: 20.01.2008 13:51
Сообщ.: 216,
Visits: 2 222
|
|
| 1. НОК(a1,a2,a3)=НОК(НОК(a1,a2),a3) 2. Сумма цифр пятизначного чмсла (не более, чем пятизначного): Function SumDig(N as integer) as integer S%=0 For i%=1 to 5 S%=S%+(N mod 10) N=N \ 10 'деление нацело! Next i% SumDig=S% End Function
|
|
|
|