Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
<span>program</span><span> kalkulator; </span>
<span>uses</span><span> crt; </span>
<span>var</span><span> a</span><span>,</span><span>b</span><span>,</span><span>c</span><span>:</span><span>real</span><span>; </span>x<span>:</span><span>integer</span>;
<span>Begin</span>
clrscr;
<span>Writeln</span><span>(</span><span>'введите 2 числа'</span><span>)</span>;
<span>Readln</span><span>(</span>a<span>,</span>b<span>)</span>;
<span>Writeln</span><span>(</span><span>'выберете действие'</span><span>)</span>;
<span>Writeln</span><span>(</span><span>'1-"+" 2-"-" 3-"*" 4-"/"'</span><span>)</span>;
<span>Readln</span><span>(</span>x<span>)</span>;
<span>case</span> x <span>of</span>
<span>1</span><span>:</span><span>begin</span> c<span>:=</span>a<span>+</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>2</span><span>:</span><span>begin</span> c<span>:=</span>a<span>-</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>3</span><span>:</span><span>begin</span> c<span>:=</span>a<span>*</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>else</span><span>begin</span> c<span>:=</span>a<span>/</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>;
<span>end</span>;
<span>end</span>;
<span>Readln</span>;
<span>end</span>.
Калькулятор может выполнять задачи арифметики, и только те, которые в него заложены. Он не может быть перепрограммирован. Компьютер может выполнять любые задачи информатики и не только, может быть перепрограммирован.
Program calculator;
Var a,c: real;
b: char;
Begin
Write('Введите первое число: ');
readln (a);
Write('Введите знак. ( + - сложение, - - вычитание, / - деление, * - умножение): ');
readln (b);
Write('Введите второе число: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*': a:=a*c;
'/': a:=a/c;
end;
Write ('Результат: ',a);
End.
Зная что F = 1111 а 1 это 1 и что каждую цифру нужно заменять по тетрадам(четверкам) по правилу позиционной системы счисления нужно заменить
F на 1111
1 на 0001
и соединить
Ответ : 11110001