Текс написан в 64 символьном алфавите и содержит 20 символов.сколько байт весит текст

155

389

Посмотреть ответы 2

Ответы на вопрос:

leranik4

Информатика

4,6(18 оценок)

20 байт тому,що один символ займає 1 байт

katyushamoshkop0dtz2

Информатика

4,5(75 оценок)

Var mas: array [1..20] of integer; function summ(var m: array of integer; length: integer): integer; var k: integer; begin randomize; //заполнение массива for k: =1 to length do m[k]: =random(5000)-2500; result: =0; //подсчёт суммы положительных элементов массива for k: =1 to length do if m[k]> 0 then result: =result+m[k]; end; procedure tform1.button1click(sender: tobject); var k, sum: integer; begin sum: =summ(mas, 20); memo1.text: ='массив чисел '; for k: =1 to 20 do memo1.lines.add(inttostr(mas[k])+','); memo1.lines.add('сумма положительных чисел '+inttostr(sum)); end;