<em><u>Pascal:</u></em>
var code:byte;
begin
write ('Code = ');
readln (code);
writeln (chr(pred(code)));
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int code;
cout <<"Code: ";
cin >>code;
char ch=static_cast<char>(code);
cout <<ch <<endl;
return 0;
<span>}</span>
Листинг программы и скриншот результата в приложениях.
Написано на PascalABC.NET но должно работать на всех Паскалях.
<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>.
Короче, смотри 1 + 1 = 5 + 1 выполняется Else(В данном коде у тебя ничего не происходит), пошли по кругу, 1 + 2 = 5 + 1 снова выполняется Else, и т.д, пока не будет 1 + 5 = 5 + 1 тогда здесь уже выполняется Then, а именно число которые стоит в позиции i = 1 и j = 5 (i - это строки)(j - это столбцы) например там стоит число 20 то уже будет 21.
N = 2^i ; N - мощность алфавита, i-количество битов в одном символе.
