Нарисуйте блок-схемы к следующим :
1.ввести три числа (a b c).найти максимальное
2.ввести два числа. если их сумма больше 100,то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.
3.дано два числа. если их сумма кратна 5,прибавить 1 ,иначе вычесть 2.
4.вести рост человека. вывести на экран "высокий",если его рост превышает 180 см и " не высокий" в противном случае

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

(3+3·3): 3=4

(3·3+3): 3=4

================

3+3–(3: 3)=5

(3+3): 3+3=5

================

3+3+(3–3)=6

3-3+3+3=6

3·3: 3+3=6

(3+3): 3·3=6

================

3: 3+3+3=7

3+3: 3+3=7

================

3·3–3: 3=8

================

3·3·3: 3=9

3: 3·3·3=9

3·3+3-3=9

3+3·3-3=9

================

3: 3+3·3=10

3·3+3: 3=10

1)

var a: array[1..20] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('удалили элементы из одинаковых цифр включая однозначные'); i : = 1; k : = 10; while i < = k do begin if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then begin if i = k then k : = k - 1 else begin for j : = i to k - 1 do a[j] : = a[j + 1]; k : = k - 1; end; end else i : = i + 1; end; for i : = 1 to k do write(a[i]: 4); end.

2)

var a: array[1..20] of integer; i, j, k,n: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('введите k(не должно содержать 1)='); readln(k); writeln('вставляем k перед всеми элементами где есть цифра 1'); i : = 1; n : = 10; while i < = n do begin if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then begin for j: =n+1 downto i+1 do a[j]: =a[j-1]; a[i]: =k; n: =n+1; i: =i+1; end; i : = i + 1; end; for i : = 1 to n do write(a[i]: 4); end.

3)

var a: array[1..10] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('меняем местами три первых и три последних элемента'); for i: =1 to 3 do begin k: =a[i]; a[i]: =a[i+7]; a[i+7]: =k; end; for i : = 1 to 10 do write(a[i]: 4); end.

1.

program okay; {здесь я думаю, все понятно}

var i, count : byte; {i - будет счетчиком, в переменную count мы запишем количество четных чисел}

begin

count: =0; {пока что мы не нашли ни одного четного числа}

for i: = 10 to 99 do {перебираем двузначные числа, т. е. от 10 до 99}

if i mod 2 = 0 then count : = count+1; {если остаток от деления на 2 (mod) равен нулю, то число четное и мы к количеству найденых прибавляем единицу}

write(count); {выводим на экран найденое количество четных чисел}

end. {конец программы}

2.

program okay; {здесь я думаю, все понятно}

var i, count : byte; {i - будет счетчиком, в переменную count мы запишем количество чисел с четной первой цифрой}

begin

count: =0; {пока что мы не нашли ни одного нужного числа}

for i: = 10 to 99 do {перебираем двузначные числа, т. е. от 10 до 99}

if (i div 10) mod 2 = 0 then count : = count+1; {находим целую часть от деления числа на 10 (т. е. первую цифру) и остаток от деления ее на 2 равен нулю, то эта цифра четная}

write(count); {выводим на экран найденое количество искомых чисел}

end. {конец программы}

3.

program okay; {здесь я думаю, все понятно}

var i : byte; {i - будет счетчиком}

begin

for i: = 10 to 99 do {перебираем двузначные числа, т. е. от 10 до 99}

if (i mod 3 = 0) and (i mod 4 = 0) then write(i); {проверяем кратность путем нахождения остатков от деления на 3 и 4 и выводим число на экран в случае выполнения условия кратности}

end. {конец программы}

4.

program okay; {здесь я думаю, все понятно}

var i : integer; {берем тип integer, т. к в тип байт не входят все трехзначные числа, i - будет счетчиком}*

a, b, c : byte; {a - цифра сотен, b - десятков, c - единиц}

begin

for i: = 100 to 990 do begin {перебираем трехзначные числа, т. е. от 100 до 999}

a: =i div 100; {находим целую часть от деления числа на 100, т. е. цифру сотен}

b: =(i div 10) mod 10; {находим двузначное число являющееся целой частью данного числа на 10, а затем остаток от деления на 10, таким образом получаем число десятков}

c: =i mod 10; {находим остаток от деления числа на 10, т. е. цифру единиц}

if (a=b) and (b=c) then write(i); {проверяем, выполняется ли условие равенства цифр числа и в случае выполнения, выводим данное число на экран}

end; {закрываем цикл}

end. {конец программы}

* - тип byte может принимать значения от 0 до 255, а тип integer - от -32767 до 32768.

прим: все что выделено жирным, это код программы. все остальное - это пояснение и вставлять их в программу не нужно.