Графический файл содержит черно-белое изображение (без градаций серого) размером 128 × 128 точек. Какой информационный объем этого файла? ответ дайте в Кбайтах.

Вариант с циклом while program z1; uses crt; var n: longint; i,max,x: integer; begin clrscr; read(n); max: =-1; i: =1;                 {это будет переменная-счетчик} while i< =5 do begin x: = n mod 10; if x> max then max: =x; n: = n div 10;         {в этой строке исправлена опечатка в оригинале}      i: =i+1;                     {наращиваем счетчик вручную} end; writeln(max); end. вариант с циклом repeat until program z1; uses crt; var n: longint; i,max,x: integer; begin clrscr; read(n); max: =-1; i: =1; repeat x: = n mod 10; if x> max then max: =x; n: = n div 10; i: =i+1; until i> 5; writeln(max); end. вариант с циклом repeat until без счетчика! program z1; uses crt; var n: longint; max,x: integer; begin clrscr; read(n); max: =-1; repeat x: = n mod 10; if x> max then max: =x; n: = n div 10; until n=0; writeln(max); end. в последнем примере условием окончания цикла будет случай, когда число станет равным 0. действительно, после каждого повторения цикла число становится на один разряд меньше (выделенная цветом строка программы), значит, когда-нибудь такое число станет равным 0 (цикл подходит для числа с любым количеством цифр). пример: 34567 -> 3456 -> 345 -> 34 -> 3 -> 0