Перевести: 1) 65536 бит в мб 2) 5тб в б 3) 40гб в биты

Байт мебибайт мегабайт байт (если тебибайты) байт (если терабайты) бит (если гибибайты) бит (если гигабайты) вообще-то граница уже стёрлась, но надоело, что все по-разному пишут, так что по 2 варианта

K: =0; \\ for(i=0; i< 100; i++){                       if (a[i]> 17){                                     k++;                                       }                         } write('k=',k);

1) begin пишется через е 2) не written, а writeln 3) аналогично, не writelen, а writeln 4) не redlrn; а readln end; program primer1; {название без пробелов и с точкой и запятой}uses crt;             {подклжючение необходимых библиотек} var a, b, z: integer; {обьявление переменных, : после переменных, и ; после типа переменных} begin  {начало тела программы, ничего не ставится, так как єто начало исполнения программы}clrscr;   {очиска экрана} writeln(введите два целых числа ); {ln делает вывод на экран после с новой строки} readln(a, b); {данные вводяться каждый с новой строки} z=a*b;   {поск произведения} writeln('произведени чисел =',z) {вывод на экран результата произведения} writeln ('нажми enter '; ) redln; {задержка экрана, чтобы успеть увидеть результат, до нажатия клавишы энтер} end.{конец тела программі, ставиться не точка с запятой, а лишь точка}