25 (10) = 11001 (2)
Первые два бита дают 4 возможных варианта
00, 01, 10, 11. Но последний - 11, уже занят.
Остается три варианта.
00 110 (2) = 6 (10)
01 110 (2) = 14 (10)
10 110 (2) = 22 (10)
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
2100 + 68 = 2168 то есть в)
между буквами +
Program z1;
var x, y : integer;
begin
x:=3;
y:=5*x + 6;
write (y);
end.
<span>количеством операций в секунду</span>