Найдём сколько <em><u>весит один символ</u></em>
560/70=<em><u>8 бит </u></em>
___________________
теперь найдём <em><u>мощность алфавита</u></em>
2^8=<u><em>256</em></u>
<u>Ответ: С</u>
т.к.
a:=40;
b:=6;
a:=div(a,b), т.е. a/b, div берёт целую часть от деления, 40/6=6 - целая часть
b:=a*b; b:=6*6=36;
a:=div(b,a); a:=36/6=6;
Ответ:
a:=6;
b:=36
#include <iostream>
using namespace std;
int main ()
{
int y[10], n, i, max, min;
cout<<"\n N="; cin>>n;
for (i=0; i<n; i++)
{
cout<<"\n Y["<<i<<"]=";
cin>>y[i];
}
min=y[0];
max=0;
for (i=0; i<n; i++) {
if ( max<y[i] )
{
max = y[i];
}
if ( min>y[i] )
{
min = y[i];
}
}
cout << "Summa max i min = " << max+min << endl;
system("pause");
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
<u>Пример</u>
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2