Обчисліть довжину двійкового коду повідомлення у байтах: < >

48 символов,считая пробелы,значит мощность алфавита будет 2 в 6 степени. то есть на каждый символ выделяется 6 бит информации. 6*48=288 бита переводим в байты 288/8=36 байт ответ: 36 байт

Способ с циклами: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифм. прогресии: '); readln(n); for i: =1 to n do a: =a+d; writeln(n, ' член арифметической прогресии равен : ', a); end. способ без циклов: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифметической прогресии: '); readln(n); writeln(' ответ: ', a+d*(n-1)); end.

Program znanija; var a: array[1..20] of integer;     i,k,min,n: integer; begin min: =1000000000; // прощу прощение за такое )  for i: =1 to 20 do  a[i]: =random(9); // заполняем массив  for i: =1 to high(a) do  // находим минимальное нечётное, запоминаем его номер if (a[i] < min) and (a[i] mod 2 < > 0)  then begin n: =i; min: =a[i]; end;     for i: =1 to 20 do  write(a[i]: 3);       // выводит весь массив  writeln();   // просто перевод на новую строку для красоты  writeln('minimum: ',min,' ego nomer: ',n); // выдаём минимальное и его номер end.