Кейс 1. «Геометрия будущего» «The 3D» – молодая компания из Уфы, ориентированная на услуги в сфере 3D-технологий. Основатель компании, приобрел для своего бизнеса сразу два персональных 3D-принтера. Изначально, компания занималась изготовлением миниатюрных копий людей, но в связи с получением обновленного 3D-оборудования, так же начала предоставлять услуги по созданию входных групп и скульптурных сооружений. Компания «The 3D» планирует развиваться и дальше по всем направлениям 3D печати и сканирования. По словам основателя компании − Руслана, у них есть много задумок по этому поводу: «Одной из задач для нас является создание входных групп и скульптурных сооружений. При этом достаточно сложна демонстрация объекта заказчику, так как виртуальная картина не дает полного восприятия. Выход был очевиден! Купив 3Dпринтеры, мы решили эту задачу. На сегодняшний день клиент может не только увидеть, но и «потрогать» геометрию будущего декора. А это именно то чувство, которое может убедить даже изощренного эстета». Вопросы и задания к кейсу. 1. Почему кейс называется «геометрия будущего»? 2. О каком направлении 3D-печати рассказывается в кейсе? 3. В чем заключается инновационность деятельности компании «The 3D». 4. Если бы Вы стали директором данной компании, какие дополнительные направления развития Вы бы предложили. 5. Как Вы думаете, будет ли компания «The 3D» также популярна через 5 или 20 лет?

👇

Увидеть ответ

Ответ:

карина2153

30.10.2021

Объяснение:

порролппаспа

4,8(27 оценок)

Открыть все ответы

Ответ:

Arina12261

30.10.2021

//PascalABC.NET 3.2 сборка 1318

var
l, r, counter, i: integer;

function DifNum(a: integer): integer;
var se: set of integer;
i: integer;
begin
while a > 0 do
begin
if a mod 10 in se then
begin
DifNum := 0;
exit;
end
else include(se, a mod 10);
a := a div 10;
end;
DifNum := 1;
end;

begin
read(l, r);
for i := l to r do
counter += DifNum(i);
writeln(counter);
end.

//Альтернативное решение на Паскале

Var
l,r:integer;
begin
read(l,r);
writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.tostring)).Count);
end.

//Dev-C++ 5.11 (C)

#include <stdio.h>
#include <malloc.h>

int DifNum(int);

int main(void)
{int l,r,counter=0;
scanf("%d %d",&l,&r);
for(int i=l;i<=r;i++)
counter+=DifNum(i);
printf("%d",counter);
return 0;}

int DifNum(int a)
{int k=1,*nums;
nums=(int*)malloc(k*sizeof(int));
nums[0]=-1;
while(a>0)
{for(int i=0;i<k;i++)
if(a%10==nums[i])
return 0;
k++;
nums=(int*)malloc(k*sizeof(int));
nums[k-1]=a%10;
a/=10;}
free(nums);
return 1;}

Пример ввода:
1 12
Пример вывода:
11

4,5(93 оценок)

Ответ:

ДОМАШКАФИЗИКА

30.10.2021

1)var ar:array of integer;
max,min,s,i,n,maxi,mini:integer;
begin;
randomize;
max:=-1;
min:=101;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if max<ar[i] then
begin;
max:=ar[i];
maxi:=i;
end;
if min>ar[i] then
begin;
min:=ar[i];
mini:=i;
end;
s:=s+ar[i];
end;
ar[maxi]:=s;
ar[mini]:=s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
2)var ar:array of integer;
k,h,i,s:integer;
f:real;
begin;
randomize;
readln(h);
setlength(ar,h+1);
writeln('Array:');
for i:=1 to h do
begin;
ar[i]:=random(100)-50;
write(ar[i]:4);
if (ar[i]>0) and (ar[i] mod 2=0) then
begin;
inc(k);
s:=s+ar[i];
end;
end;
f:=s/k;
writeln;
writeln('Result:',f);
end.

4,4(24 оценок)

Это интересно:

Взаимоотношения

21.08.2022

Измены в браке: что делать и как сохранить семью?...

Философия-и-религия

24.12.2021

Как надеть хиджаб: советы и рекомендации...

14.02.2021

Хочешь жить счастливо? Узнай, что для этого нужно!...

Взаимоотношения

21.07.2022