Program BB;
<span><span>uses crt;
Var s,a,b,v,z,i:longint;
Begin
s:=1; {учитываем билет с номером 000000}
for i:=1 to 999999 do {перебираем билеты от 000001 до 999999}
begin
v:=i;
z:=0;
while z<3 do begin
z:=z+1;
a:=v mod 10 +a; v:=v div 10 end; {считаем сумму последних трех чисел}
while z<6 do begin z:=z+1;
b:=v mod 10 +b;
v:=v div 10
end; {считаем сумму первых трех чисел}
if a=b then s:=s+1;
a:=0;
b:=0;
end;
writeln(s);
ReadKey;
end.</span></span>
Знак- . : * ,
Русская буква- А б в г д
Английская буква- A b c d q w
Арабская цифра- 1 2 8 3
Римская цифра- ||| Х||
256/16=16 (ост.0)
16/16=<u>1</u> (ост 0)
ответ 256=100 (ответ получается из остатков в обратном порядке, начиная с 1)
400/16=25 (ост.0)
25/16=<u>1 </u>(ост.9)
ответ 400=190
1234/16=77 (ост 2)
77/16=<u>4 </u>(ост 13 - это D)
ответ 1234=4D2
2012/16=125 (ост 12 - это C)
125/16=<u>7 </u>(ост 13 - это D)
ответ 2012=7DС
Var r,L,S:real;
begin
read (r);
L:=2*3.14*r;
S:=4*3.14*r*r;
write('длина...=',L);
write('площадь...=',S);
End.