Первое письмо состоит из 50 символов 16-символьного алфавита,а второе-40 символов 32-символьного алфавита.сравните объемы информации,содержащиеся в двух письмах.
Program str; Uses crt; Var s:string; i,p,sum:integer; Begin P:=1; Sum:=0; Readln(s); For i:=1 to length(s) do Begin If s[i] in ['0'..'9'] then Begin p:=p*(ord(s[i])-ord('0')); sum:=sum+(ord(s[i])-ord('0')); End; End; Writeln('Сумма = ',sum,' ','Произведение = ',p); End.
Var s1,s2:string; begin; writeln('Введите исходные знаки'); readln(s1); readln(s2); if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) then begin; writeln('Ошибка'); exit; end; if ((s1='+') and (s2='+')) or ((s1='-') and (s2='-')) then writeln('+') else writeln('-'); end.
С числами: var a,b:integer; begin; writeln('Делимое:'); readln(a); writeln('Делитель'); readln(b); if b=0 then begin; writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.'); exit; end; if a=0 then begin; writeln('0'); exit; end; if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-'); end.
Второй случай: 32=2^5=5 битов, 40*5=200 битов, II-ое письмо.
Вывод: они одинаковые.