Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Program x2;
var n:longint;
begin
Write('Введите n, n = ');
Readln(n);
While n mod 2 = 0 do
n:= n div 2;
If n=1 then Write('YES')
else write('NO');
<span>end.</span>
Программа позволяющая создавать и редактировать двумерные изображения с помощью компьютера
# Последовательность семнадцатеричных чисел, разделённых пробелом, в конце - точка. Перевести в десятичную и определить максимум
# Код на ruby 2.2.3p173
def zadanie(line17C)
line17C = line17C.sub(".", "")
a = (line17C.split(" ")).to_a
b = []
a.each {|element| b << element.to_i(17) }
return b.max
end
# Примеры применения
p zadanie("G1 A1 2F.")