// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!
function NOK(a,b:integer):integer;
begin
if a=b then Result:=a
else begin
var c:=a*b;
repeat
if a>b then a:=a-b else b:=b-a;
until a=b;
Result:=c div a
end
end;
begin
var n:=ReadInteger(‘N=’);
var L:=new List;
var m:=n;
while m>0 do begin
var d:=m mod 10;
L.Add(d);
m:=m div 10
end;
var a:=L.Where(x->x<>0).Distinct.ToArray;
var k:=a[0];
if a.Length>1 then
for var i:=1 to a.Length-1 do k:=NOK(k,a[i]);
Range(k,n,k).Println;
end.
Пример
N= 227
14 28 42 56 70 84 98 112 126 140 154 168 182 196 210 224
Как это работает?
Если число делится на каждое из нескольких чисел, то оно делится и на НОД этих чисел, Функция НОД позволяет найти НОД пары чисел, а её применение несколько раз позволит найти НОД для необходимого набора чисел.
Сумма факториалов. Напишите программу, которая выводит значение суммы 1!+2!+3!+…+n! | Python
Создаем объект типа «список целых» и цифра за цифрой помещаем туда числа, совпадающие с цифрами заданного числа n. Затем просматриваем список и все уникальные элементы, за исключением нуля, заносим в массив а. Далее вычисляем НОД для всех элементов полученного массива.
Понятно, что первым в последовательности искомых чисел будет стоять НОД, а далее пойдут числа, которые будут увеличиваться каждый раз на НОД, пока не достигнут n.
Источник: megaurok.com
Kallaidor / Задача 64: Задайте значение N. Напишите программу, которая выведет все натуральные числа в промежутке от N до 1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| int n = InputInt(«Введите положительное число»); |
| int m = 1; |
| if (n < 1) |
| Console.WriteLine(«Ввели не положительное число»); |
| > |
| Console.WriteLine(NaturalNumber(n, m)); |
| int NaturalNumber(int n, int m) |
| if (n == m) |
| return n; |
| else |
| Console.Write($», «); |
| return m; |
| > |
| int InputInt(string output) |
| Console.Write(output); |
| return int.Parse(Console.ReadLine()); |
| > |
Простые числа. Напишите программу, которая находит все простые числа от a до b включительно | Python
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| int m = InputInt(«Введите M:»); |
| int n = InputInt(«Введите N:»); |
| Console.WriteLine($»Сумма элементов от до = «); |
| int InputInt(string output) |
| Console.Write(output); |
| return int.Parse(Console.ReadLine()); |
| > |
| int CountNaturalSum(int m, int n) |
| if (m == n) |
| return n; |
| return n + CountNaturalSum(m, n — 1); |
| > |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| Console.WriteLine(«Введите два положительных числа: M и N.»); |
| int m = InputInt(«Введите M: «); |
| int n = InputInt(«Введите N: «); |
| Console.WriteLine($»A(, ) = «); |
| int InputInt(string output) |
| Console.Write(output); |
| return int.Parse(Console.ReadLine()); |
| > |
| int Akkerman(int m, int n) |
| if (m == 0) |
| return n + 1; |
| if (m > 0 n == 0) |
| return Akkerman(m — 1, 1); |
| else |
| return Akkerman(m — 1, Akkerman(m, n — 1)); |
| > |
Источник: gist.github.com
Написать программу которая выводит на экран все натуральные числа от 1 до н
Написать функцию, которая выводит числа от 1 до n (n — передаваемый аргумент)
Условие:
Напишите функцию, которая выводит в консоль числа от 1 до i, где i — целое число. Дополнительно, функция должна выводить foo вместо чисел кратных 3, должна выводить bar вместо чисел, кратных 5 и должна выводить foobar вместо чисел, одновременно кратных и 3, и 5
grhgrmgrhrm
1624482200
В основе всей логики будет идти цикл for, который будет работать с цифрами от 1 до i. Внутри цикла бодет работать if. else для перебора условий задачи, в котором на каждой итерации мы будем выполнять кратность и выполонять действие. Перввм делом проверим через логический оперетор И одновременную кратность 3 и 5, затем проверим на кратность 3, затем 5 и в самом конце — выведем число, поскольку никакое из условий цикла не отработало.
const fooBar = num => <
for (let i = 1; i if ( i % 3 === 0 i % 5 ===
Источник: unicoding.dev