Var s1,s2:string; i:integer;
Begin
readln(s1);
for i:=1 to length(s1) do
s2:=s2+s1[i]+' ';
writeln(s2);
readln;
end.
Написано на Паскале. Все работает, можешь сам проверить
5 чисел ето 14,13,12,11,10.
1) при 3д печати используется пластик и 3д принтер
2)Модель для 3д печать можно создать самостоятельно
3) Область печати: 240 x 215 x 230 мм
Точность позиционирования оси X, Y: 0,04мм
· Точность позиционирования оси Z : 0,01мм
Диаметр нити: 1,75 мм
Высота слоя : от 50 до 150 микрон
Скорость печати: 40-150 мм/с
Количество печатающих головок: 1
# Код на ruby 2.2.3p173
a = []
a << [1]
for i in 2..10001
f = 0
a.each{ |group|
m = 1
group.each { |c|
m *= i % c
}
f += m
if m > 0
group << i
break
end
}
a << [i] if f == 0
end
p a
p a.size