Каждый символ закодирован 1 байтом. оцените информационный объем следующего предложения: в одном килограмме 1000 грамм.
180
221
Ответы на вопрос:
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.
Популярно: Информатика
-
Котэ112шк21.11.2022 18:08
-
romanchuknina24.06.2023 04:01
-
Evgeniusz30.11.2021 11:49
-
лукашук11.02.2021 01:06
-
WaysWhite10.02.2022 20:21
-
Аля1925106.12.2022 20:57
-
КаролинаКим30.01.2023 03:40
-
нрпаллмаегли16.12.2021 20:42
-
Andy0120.03.2023 19:48
-
temirhanarmy30.03.2022 21:20