Через программу паскаль 1найти все четырехзначные числа, делящиеся на 27. 2).дан массив целых чисел, состоящий из 20 элементов.заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.

Program  ilgiz98; var   i: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln('программа находит 4-значные числа, которые делятся на 27');   writeln('список таких чисел: ');   for i: =1000 to 9999 do       if (i mod 27)=0 then writeln(i); end. program  ilgiz98; var   mass: array [1..20] of integer;   i, k, n: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln('среди элементов массива программа находит числа, которые больше заданного числа n и одновременно кратны 5');   write('введите число n ');   readln (n);   writeln('*** ***');   k: =0;   writeln('массив чисел: ');   for i: =1 to 20 do       begin         mass[i]: =random(1000)-500;         writeln(mass[i]);         if (mass[i]> n) and ((mass[i] mod 5)=0) then k: =k+1;   end;   writeln();   writeln('всего найдено ',k,' таких чисел'); end.

Первая var i: integer; begin for i: =1000 to 9999 do   begin   if (i mod 27)=0 then writeln(i);   end;   end.вторая vara: array [1..21] of integer; i, j, n: integer; beginwrite('сгенерированый массив: '); for i: =1 to 20 do  begin  a[i]: =random(100);   write(a[i], ' ');   end; writeln; write('введите число: '); readln(n); for i: =1 to 20 do  if (a[i]> n) and ((a[i] mod 5)=0) then inc(j);   write(j); end.

это не степени, это системы счисления, если что : )

в скобках будет указана система, в которой сейчас данное число, а после знака ^ - степень, в которую надо возвести основание системы счисления

543(8)=5*8^2 + 4*8^1 + 3*8^0 = 320+32+3=355(10)

39(8)=3*14^1 + 9*14^0 = 42+9=51(10)

если надо наоборот - то делите число, которое надо перевести, на основание системы, в которую хотите перевести, до тех пор, пока оно не станет меньшим, чем его возможно будет разделить, и тогда запишите все остатки делений, причем снизу вверх, и начиная с последнего, которое не разделили

543: 8=67, остаток 7(записываем в конец)

67: 8= 8, остаток 3(предпоследнее)

8: 8=1. остаток 0(записываем перед 3)

и 1, которое нельзя разделить, записываем самым первым.

543(10)=1037(8)

по аналогии, 39(10)=2в(считайте сами, это просто, а числа, большие 9 обозначайте как а(соответствует 10), в(11), с(12) и d(14). пятнадцати нет, так как есть еще 0

ну, надеюсь, что перевести дальше сможете?

суммы теперь:

372(8)+536(8)=1130. сумма считается так же, как и в десятиричной, нашей, системе, но только там переход через десяток осуществляется, если число больше 7.

875(9)+536(9)=1522

11011(2)+1111(2)=101010

 

 

в цикле от второго до предпоследнего элемента смотрятся текущий элемент и его соседи. если текущий элемент больше своих соседей, то в память записывается номер текущего элемента и цикл завершается (потавить переменную в true, а в усовии выполнения цикла потставить ещё проверку значения этой перевенной),  первый элемент тройки - то число в памяти-1, второй элемент - само число, а третий элемент - число в памяти+1. если при завершение цикла не было найдено таких троек(та перменная равна false), то значит таких троек нет.

 

псевдокод

 

[n] - n-ый элемент массива(перед [ пишется название массива)(нумерация элементов начинается с нуля)

 

размер массива - n

 

массив м;

целое число (intenger) а : = 0;

логическа единица(boolean) b : = false;

целое число i : = 1;

 

пока(i< n-1 и b=false)

начало

  если(m[i]> m[i-1] и m[i]> m[i+1])

  начало

    a : = i;

    b : = true;

  конец

  i : = i+1;

конец

 

если (b = false) то таких троек нет

иначе то a-1 - превый элемент тройки, a - второй, a+1 - третий.