Сообщение было зашифровано кодом. использовались только буквы, в таблице a б в г д е ..o.. o..o .oo. o .o . o. oo определите, какая(-ие) буква(-ы) в сообщении повторяется(-ются). o..o. oo. o.oo...o. oo

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.