Practice 1 Ваш друг Стив отправил вам очень важное сообщение которое ваш компьютер не может показать. Используйте ваше знание о двоичных числах и ASCII таблице, чтобы перевести сообщение Стива, Сообщение от Стива: 01110100 01101000 01101001 01101110 01101011 01100100 01101001 01100110 01100110 01100101 01110010 01100101 01101110 01110100 Подсказка: каждый символ имеет размер в 1 байт. Также отправьте сообщение "Stay hungry!" Стиву в виде двоичного кода. *
n=10;m=7;
var
a:array[1..n,1..m]of integer;
flag,i,j,b:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(312)-111;
write(a[i,j]:4);
end;
end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
for j:=1 to m do
if a[i,j]=b then
flag:=1;
if flag=1 then
writeln('Yes')
else
writeln('N');
end.
вариант 2
const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
k,i,j,b:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(312)-111;
write(a[i,j]:4);
end;
end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
for j:=1 to m do
if a[i,j]=b then
k:=k+1;
if k<>0 then
writeln('Yes')
else
writeln('N');
end.