var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
{Задание а}
var
i:integer;
begin
for i := 90 downto 65 do
writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));
end.
{Задание б}
var
i, j:integer;
begin
for i := 90 downto 65 do
begin
for j := 90 downto 65 + 90 - i do
write(chr(j), ' ');
writeln;
end;
end.
{Задание в}
var
i, j:integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do
if i = j then
write(i, ' ')
else
write('0 ');
writeln;
end;
end.
<span>Один символ при алфавитном подходе будет нести 5 бит информации (2 в Х степени = 32) . Общий объём информации 39x5 = 195 бит</span>
Как мы знаем в одном килобайте 1024 мегабайта так мы и получаем ответ 122,8 килобайт,и получается 8388,608байт