101110 во второй степени.
Var x,a:integer;
begin
x:=10;
while (x<100) do
begin
a:=x*x;
if (a<999) then
begin
if (((a mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then
writeln(x);
end
else
begin
if (((a mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then
writeln(x);
end;
x:=x+1;
end;
end.
Red(красный), Green(Зеленый), Blue(Синий)
Решение смотрите на рисунке. Красным показано положение курсора в каждом этапе. Всего нам понадобилось 2 сочетания клавиш и 1 клавиша, то есть вариант 1). (При условии что весь текст - это одна строка).
Ответ: 1) 1 клавишу и 2 сочетания.