Если на паскале, то как-то так:
function ToNine(number : integer) : integer;
const
sist = 9;
var
res, umn : integer;
begin
res := 0;
umn := 1;
while number > 0 do
begin
res := (number mod sist) * umn + res;
number := number div sist;
umn := umn * 10;
end;
ToNine := res;
end;
var
i : integer;
begin
for i := 1 to 8 do
writeln(i, ' + ', i, ' = ', ToNine(i + i));
for i := 1 to 8 do
writeln(i, ' * ', i, ' = ', ToNine(i * i));
<span>end.</span>
Шаг 1: I=1, S=S+I=0+1=1
шаг 2: I=2, S=1+2=3
Тело цикла: S:=S+I
S=3
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.