1)x-y=11000
110101
- 11101
11000
2)х+у=1010010
110101
+ 11101
1010010
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ
В первой задаче решать начинаем с конца, последовательно подставляя значения известных переменных.
Во второй просто подставляем значения из строки выше
1)252750,5
2)2775250,5
3)275253
4)2527525,5
5)2777525,5
Var a,b:integer;
begin
read(a);
b:= a mod 10;
if b=0 then writeln('Ноль') else
if b=1 then writeln('Один') else
if b=2 then writeln('Два') else
if b=3 then writeln('Три') else
if b=4 then writeln('Четыре') else
if b=5 then writeln('Пять') else
if b=6 then writeln('Шесть') else
if b=7 then writeln('Семь') else
if b=8 then writeln('Восемь') else
writeln('Девять');
<span>end.</span>