Продолжите программу, чтобы рисовалась любая введённая цифра от 0 до 9
PascalABC​

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.

на один символ отводится 1 байт 30 строк по 70 символов - 2100 символов 5 страниц-это 10500 символов так что ответ 10500 байт

include < iostream>

using namespace std;

int main()

{int n;

  cin > > n;

switch(n)

        {case 1: cout< < "i"; break;

          case 5: cout< < "v"; break;

          case 10: cout< < "x"; break;

          case 50: cout< < "l"; break;

          case 100: cout< < "c"; break;

          case 500: cout< < "d"; break;

          case 1000: cout< < "m"; break;

        }

return 0;

}