Впаскаль. 1) напечатайте все двухзначные числа, которые кратные 5 и не кратные 3.

Var i: integer; beginfor i: =10 to 99 do if (i mod 5 = 0) and (i mod 3 < > 0) then writeln(i); end.

Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

function otr(ax, bx, ay, by: real) : =

sqrt(sqr(bx - ax) + sqr(by - ay));

begin

  var ax, ay, bx, by, cx, cy, dx, dy: real;

  readln(ax, ay, bx, by, cx, cy, dx, dy);

  writeln('|ab|=', otr(ax, bx, ay, by));

  writeln('|ac|=', otr(ax, cx, ay, cy));

  writeln('|ad|=', otr(ax, dx, ay, dy))

end.

пример 2.3 3.09 -4.2 6 8.5 -3 4 0 |ab|=7.12166413136705 |ac|=8.69069042136469 |ad|=3.52676905963518

На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 бит: