Перебор всех таких слов по порядку- это по сути счёт по порядку в системе счисления с основанием 4, только вместо цифр 0, 1, 2, 3 использованы буквы А, Е, К, Р.
То есть, буква А соответствует нулю, а первое слово в списке соответствует числу 0000 (используется запись с фиксированным выводом четырёх цифр, включая незначащие нули).
Первым числом, в котором не будет нулей, станет число 1111 (ведь сразу вслед за нулём при последовательном счёте в числе появится цифра один). Этому числу соответствует слово ЕЕЕЕ.
Переведём это число из четверичной системы счисления в десятичную:
Дальше нужно учесть, что в списке под номером 1 стоит число, равное нулю. Значит, к числам, обозначающим слова в списке надо прибавить единицу, тогда они будут равны порядковым номерам списка.
Получается, первое слово, в котором нет буквы А (слово ЕЕЕЕ), идёт в списке под номером 85 + 1 = 86
Ответ: номер 86.
Var a,b:integer;
<span>begin </span>
<span>writeln('Введите два числа через пробел'); </span>
<span>read(a,b); </span>
<span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span>
<span>else writeln('Нет'); </span>
<span>end.</span>
1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
<span>
</span>