var s,s1: string;
i: integer;
begin
readln(s);
readln(s1);
if length(s)<>length(s1) then
write('нет') else begin
for i:=1 to length(s) do
if s[i]<>s1[i] then break;
if i=length(s) then write('да')
else write('нет');
end;
end.
Избыточность<span> — термин из </span>теории информации<span>, означающий превышение </span>количества информации<span>, используемой для передачи или хранения сообщения, над его </span>информационной энтропией<span>. Для уменьшения избыточности применяется </span>сжатие данных без потерь<span>, в то же время </span>контрольная сумма<span> применяется для внесения дополнительной избыточности в поток, что позволяет производить исправление ошибок при передаче информации по каналам, вносящим искажения (спутниковая трансляция, беспроводная передача
</span>
Ввод: x ^ y ^ m ^ n С/П.
Вывод: W или ошибка, если знаменатель равен 0.
П3 -> П2 -> П1 -> П0 ИП1 6 , 5 * ИП0 ИП1 3 * * + 7 ^ 9 / ИП0 * + ИП1 x^2 x^2 x#0 41 ИП2 x^2 8 ИП3 * - |x| КвКор / 1/x С/П 0 ^ 0 / С/П
Alt ана Надпись на клавише находящейся рядом с клавишей пауза
Uses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
<span>end.</span>