ответьте на во ответьте отдельно для каждой модели):
1. Какие виды передач используются в модели (зубчатая, коронная, червячная)
2. Когда начнет работать модель и когда останровится?
3. Какие блоки команд будут использоваться для управления моделью?
Опишите приблизительно программы для управления моделями.
--Модели:
(1.lego wedo рисовалка.
2. lego drawing machine- drawing 5 desings)
Var n:longint;
Function MinDigit(n:longint):integer;
var s,a:string; c,i:integer;
begin
str(n,s);
a:=s[1];
for i:=2 to length(s) do
if s[i]<a then a:=s[i];
val(a,n,c);
MinDigit:=n;
end;
Function MaxDigit(n:longint):integer;
var s,a:string; c,i:integer;
begin
str(n,s);
a:=s[1];
for i:=2 to length(s) do
if s[i]>a then a:=s[i];
val(a,n,c);
MaxDigit:=n;
end;
Begin
readln(n);
writeln(MinDigit(n),' ',MaxDigit(n));
End.
По факту переменную "c" можно убрать из функций и использовать вместо нее уже не нужную в конце "i", таким образом избавившись от одной переменной. Но это не принципиально на самом деле, к тому же так понятней, какая переменная за что отвечает.