Var lc:real;
Begin
write('Кол-во лошадиных сил = ');
readln(lc);
write(lc * 0.735);
End.
var
s: string;
begin
readln(s);
writeln(s[3], s[7], s[9]);
<span>end.</span>
а: = 123
b: = а div10 = 12
b: =b/4+2 = 12 / 4 + 2 = 5
b: =b *25+2 = 5 * 25 + 2 = 127
а: = а+b = 123 + 127 = 250
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
101011 = 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 32 + 0 + 8 + 0 + 2 + 1 = 43