Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.
//PascalABC.Net
//1
var
a, b, c: real;
begin
readln(a, b, c);
writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.
//2
var
a, b, c: real;
begin
readln(a, b, c);
writeln('Наименьшее число: ', min(a, min(b, c)));
writeln('Наибольшее число: ', max(a, max(b, c)));
end.
<span>D) файлы.
С) = D1*D1 + E1*E1;
</span><span>D) =B1*0,01
</span><span> В) 2;
С) =А1/В1;
C) = если(А1 = 5, В4*2; В4 + 10);
</span>
<span>Водитель в данном случае - управляющая система, а автомобиль - система управления, приборы автомобиля - каналы информационной связи, именно информационная связь используется в этом примере. Прямая линия: команды, исполняющие водитель или автомобиль. Обратная: состояние окр. среды и автомобиля. </span>
Var a,b,p:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
<span>a = 2
b = 20
2 4 8 16</span>