С++ ситуация : я инициализирую переменную типа int , а потом вызываю функцию cin для ввода этой переменной. есть ли возможность , проверить первый символ из потока , как конкретный типа char ?
Var i,j,n:integer; m: array[1..10,1..10] of integer; flag:boolean; sum: array[0..1] of longint; begin readln(n); flag:=true; for i:=1 to n do begin for j:=1 to n do read(m[i,j]); readln; end; //Проверяем строки i:=1; for j:=1 to n do sum[i mod 2]:=sum[i mod 2]+m[i,j]; while ((i<n) and flag) do begin i:=i+1; for j:=1 to n do sum[i mod 2]:=sum[i mod 2]+m[i,j]; if sum[0]<>sum[1] then flag:=false; sum[(i+1) mod 2]:=0; end; //Проверяем столбцы sum[0]:=0; sum[1]:=0; j:=1; for i:=1 to n do sum[j mod 2]:=sum[j mod 2]+m[i,j]; while ((j<n) and flag) do begin j:=j+1; for i:=1 to n do sum[j mod 2]:=sum[j mod 2]+m[i,j]; if sum[0]<>sum[1] then flag:=false; sum[(j+1) mod 2]:=0; end; sum[0]:=0; sum[1]:=0; j:=1; for i:=1 to n do begin sum[0]:=sum[0]+m[i,j]; sum[1]:=sum[1]+m[n-i+1,j]; j:=j+1; end; if sum[0]<>sum[1] then flag:=false; if flag then writeln('Магический'); end.
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы
i,j,n:integer;
m: array[1..10,1..10] of integer;
flag:boolean;
sum: array[0..1] of longint;
begin
readln(n);
flag:=true;
for i:=1 to n do
begin
for j:=1 to n do
read(m[i,j]);
readln;
end;
//Проверяем строки
i:=1;
for j:=1 to n do
sum[i mod 2]:=sum[i mod 2]+m[i,j];
while ((i<n) and flag) do
begin
i:=i+1;
for j:=1 to n do
sum[i mod 2]:=sum[i mod 2]+m[i,j];
if sum[0]<>sum[1] then flag:=false;
sum[(i+1) mod 2]:=0;
end;
//Проверяем столбцы
sum[0]:=0;
sum[1]:=0;
j:=1;
for i:=1 to n do
sum[j mod 2]:=sum[j mod 2]+m[i,j];
while ((j<n) and flag) do
begin
j:=j+1;
for i:=1 to n do
sum[j mod 2]:=sum[j mod 2]+m[i,j];
if sum[0]<>sum[1] then flag:=false;
sum[(j+1) mod 2]:=0;
end;
sum[0]:=0;
sum[1]:=0;
j:=1;
for i:=1 to n do
begin
sum[0]:=sum[0]+m[i,j];
sum[1]:=sum[1]+m[n-i+1,j];
j:=j+1;
end;
if sum[0]<>sum[1] then flag:=false;
if flag then writeln('Магический');
end.