Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
Введем обозначения А - 8 литров, Б - 5, В - 3
1) переливаем из А в Б, итого получим А=3, Б=5, В=0
2) переливаем из Б в В, итого получим А=3, Б=2, В=3
3) переливаем из В в А, итого получим А=6, Б=2, В=0
4) переливаем из Б в В, итого получим А=6, Б=0, В=2
5) переливаем из А в Б, итого получим А=1, Б=5, В=2
6) переливаем из Б в В, итого получим А=1, Б=4, В=3
7) переливаем из В в А, итого получим А=4, Б=4, В=0
N = 2^i ; N - мощность алфавита, i-количество битов в одном символе.
var
n, i: Integer;
s: string;
begin
Write ('Введите натуральное число, больше 9: ');
ReadLn (n);
if n <= 9 then begin
Writeln ('Ошибка ввода!');
Exit;
end;
s := IntToStr (n);
if Length (s) mod 2 <> 0 then begin // проверка на четность
i := Length (s) div 2 + 1; // вычисление позиции центральной цифры
Delete (s, i, 1); // удаление центральной цифры
Writeln ('Результат: ' + s);
end else
Writeln ('Число цифр в числе четно.');
end;