CLS
a:
INPUT a
IF a<=0 THEN GOTO a
b:
INPUT b
IF b<=0 THEN GOTO b
c:
INPUT c
IF c<=0 THEN GOTO c
IF a>=b+c OR b>=a+c OR c>=a+b THEN PRINT 0: END
IF a=b AND b=c AND c=a THEN PRINT "треугольник равноcторонний" END
IF a=b OR b=c OR c=a THEN PRINT "треугольник равнобедренный": ELSE PRIINT "другой"
END
А переводишь в двоичную с\с =11110111
в тоже самое в двоичную с\с= 11111001
и смотришь какое подходит
ответ 4, проверяй))
Program First;
var
x, y : longint;
begin
readln(x);
y:=(x-7)*(x+5);
writeln(y);
end.
<span>Клод Шеннон, был такой Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации
Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье «Математическая теория связи»).</span><span />
Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.