0,1,2,3 _ числа характерные как минимум для четверичной системы счисления → <span>301011 может существовать в СС с основанием 4 и выще</span>
2) 66150 * 8= 1 * 11025 * 8 * t
t = 6 сек
4) 10 * 2(в 23 степени) = 2 * 22050 * 32 * t
t = 60 сек
Var a,b,c,x:integer;
begin
x:=random (899) +100;
writeln('x= ', x);
a:= x div 100; {первая цифра}
b:=(x mod 100) div 10; {вторая цифра}
c:= x mod 10; {третья цифра}
writeln(a,',',b,',',c);
end.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False