Есть ответ 👍

Каждый символ закодирован 1 байтом. оцените информационный объем следующего предложения: в одном килограмме 1000 грамм.

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

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

saididag
4,7(2 оценок)

Если с точкой, то 30, если без - 29

program s; uses crt; const n=1; var i,j,otvet,prov: integer; st: array[1..n] of string[n]; a: array[1..n,1..n] of integer; begin for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(n+1); write(a[i,j],' '); end; writeln; end; for i: =1 to n do for j: =1 to n do st[i]: =st[i]+inttostr(a[i,j]); for i: =1 to n-1 do begin for j: =i+1 to n do if st[i]< > st[j] then prov: =prov+1; if prov=n-i then otvet: =otvet+1; prov: =0; end; writeln('ответ = ',otvet+1)end.

Популярно: Информатика