я так понимаю, что тебе нужно найти, все ли цифры 3 написаны? Если да, то нужно всего нажать на две клавиши на клавиатуре,: ctrl + f
1121 - нет, сумма двух цифр в восьмеричной системе не больше 16, поэтому 21 быть не может
73 - нет, полученные суммы записаны не по порядку (либо получившиеся суммы 0 и 73, чего тоже не может быть)
112 - например 50, 51
28 - в восьмеричной системе счисления нет цифры 8
1)
int f(int x,int p, int y)
{int k=0;
while(x<y)
{
x=+p*x/100;
k++;
}
return k;
}
2)
int f(int A)
{int x=1, y=1, n=2;
while(x<A || y<A)
{
if(x<y)
x=+y;
else
y=+x;
}
n++;
}
if(A=y || A=x )
return n;
else
return -1;
}
Var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>