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.
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.
ответ: 4
Объяснение: метод подбора
212(4) = 2*4^2 + 1*4^1 + 2*4^0 = 32 + 4 + 2 = 38