Ответ:
12
Объяснение:
при последней итерации которая удовлетворяет условию есть три единицы:
111222
первая замена даст
2222
вторая замена даст
12
до этого на листочке нарисуй замены, три раза примени цикл и увидишь что он повторяется и опять получается последовательно еденичек а за ними столько же двоек
1. Ответ представлен в скриншоте
2. Напечатанное значение в результате программы -40
3 Напечатанное значение в результате программы -24
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
Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.