<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите трехзначное число').ToString.Inverse.ToInteger;
Writeln('n=',n)
end.
<u>Пример</u>
Введите трехзначное число 436
n=634
2 байта занимает 1 буква русского языка
в слове картина 7 букв
итого 14 байтов
на диске занимает 4 KВ (килобайты)
Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a / 3;
s := s + a;
end;
writeln(s);
end.
Const double& Quotient(const double& a, const double& b)
{
return a / b;
}