Зависит от операционной системы
мощности компьютера( видеокарта) и от вирусов конечно
Var n,count:longint;
begin read(n);
count:=0;
repeat n:=n div 10;
inc(count);
until n=0;
writeln(count);
<span>end.</span>
Старый друг лучше новых двух
Program aaa;
var
a,b,c,i,z:integer;
begin
randomize;
z:=0;
for i:=1 to 10 do begin
a:=random(9)+1;
b:=random(9)+1;
write(a,'*',b,'=');
readln(c);
if(c=a*b) then inc(z);
end;
writeln('Из 10 заданий вы выполнили ',z,' заданий!');
end.
Ответ:
почему только 5?
от 00 до FF - 256 различных двузначных чисел
Объяснение: