1)
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.
2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.
3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.
4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.
6)
var
n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.
7)
var
n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.
9)
var
n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.
12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.
13)
var
n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.
14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.
15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.
16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.
<span>Термин “алгоритм управления” применяется здесь в значении определенной последовательности действий, выбираемой руководителем или группы управления с целью преобразования исходной ситуации в желаемый, соответствующий поставленной цели результат. “Алгоритмизация” деятельности применима к любой из рассмотренных функций управления и призвана ответить на вопрос, какие именно действия должны быть включены в стратегию управления при осуществлении той или иной функции.</span><span>Выбор того или иного алгоритма определяется степенью заданности проектной ситуации. Бывают ситуации, в которых процесс управления происходит в знакомых ситуациях, когда эта заданность практически исключает необходимость новаторской деятельности. В таких ситуациях эффективным может быть алгоритм управления, называемый линейным. Этот алгоритм отражает управление, состоящее из цепочки последовательных действий, в которой каждое действие зависит от исхода предыдущего, но не зависит от результатов последующих действий.</span><span>Если после получения результатов на одной из стадий приходится возвращаться к одному из предыдущих этапов, то такой алгоритм становитсяциклическим.</span><span>В управленческих задачах, когда функции отдельных структур управления не совпадают, может иметь место так называемый разветвленный алгоритм.Особенность этого алгоритма является то, что в него могут входить параллельные этапы, очень выгодные в том отношении, что позволяют увеличить количество структур и людей, одновременно выполняющих задачу.</span><span>Кроме того, в таких алгоритмах могут содержаться конкурирующие этапы, которые позволяют в определенной степени видоизменять стратегию в соответствии с исходом предыдущих этапов.</span><span>Адаптивные алгоритмы отличаются тем, что в них с самого начала определяется только первый шаг, первое действие. На всех последующих шагах выбор каждого действия зависит от результатов предшествующего шага алгоритма. В принципе, такая стратегия представляется наиболее предпочтительной, поскольку схема поиска всегда определяется на основе наиболее полной информации.</span><span>Недостаток адаптивных алгоритмов состоит в невозможности предвидеть и контролировать затраты и сроки выполнения проекта.</span>
cls
rem
input "введите расстояние до школы"; s
input "введите скорость ходьбы"; v
t=s/v
print t
end.
512*128=65536 пикселей
32 кб = 262144 бит
глубина цвета: 262144/<span>65536</span>=4 бит
2^4=16 цветов