В право. Робот іде лева на право!!
Var n,i,k:integer;
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
<span>для того чтобы передвигаться куда-либо, и побыстрей </span>
1)а
2)b
3)a
4)b
5)a
6)b
7)b
8)a
9)b
10)b
11)b
12)b
13)b
14)c
15)c
16)c
17)a
18)c
19)b
20)3*(А1+В1)/(5*(2*В1-3*А2))
21)b
22)c
23)b
24)с
25)=B7*V7
26)a
27)c
28)c
29)b
30)b