Задача No3. Определите информационный объем текстового документа, который состоит из 24 страниц, на каждой странице 64 строки, в каждой строке 32 символа. Используемая
кодировка Unicode, в которой символ кодируется 16 битами.
222
404
Ответы на вопрос:
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.
Популярно: Информатика
-
Arte322r2204.12.2021 09:11
-
Kiber04ек08.02.2022 13:47
-
Annakitte021.10.2021 10:39
-
medinakill27.02.2021 23:22
-
ruslankasaev16.05.2021 10:47
-
Flowers0903.07.2021 16:36
-
ЛориXD16.12.2022 17:34
-
valiente12.05.2023 09:40
-
voloseikotatian25.01.2021 11:21
-
rubaqlo23.02.2021 21:45