1)
Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('Vvedite N');
readln(n);
For i:=1 to N do
if n mod i=0 then k:=k+1;
Writeln('Delitelei ',k,' vkluchaya 1 i ',n);
readln
end.
2)
Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('Vvedite N');
readln(n);
For i:=1 to N-1 do
if n mod i=0 then k:=k+i;
If k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno');
readln
end.
3) Вычислить, я так поняла, сумму всего этого?
Program n1;
Uses CRT;
Var k,n,i,j,a: integer; s: real; p: longint;
begin
Writeln('Vvedite a,N');
readln(a,n);
p:=1;
For i:=1 to n do
For j:=1 to i do
p:=p*a;
s:=s+1/p;
writeln(s);
readln
end.
14/2=7(0)
7/2=3(1)
3/2=1(1)
1/2=0(1)ответ 1110 в двоичной системе
14/8=1(6)
6/8=0(1) ответ 16
14/16=0(1) ответ 1
65/2=32(1)
32/2=16(0)
16/2=8(0)
8/2=4(0)
4/2=2(0)
2/2=1(0)
1/2=0(1) ответ 1000001в двоичной системе
65/8=8(1)
8/8=1(0)
1/8=0(1) ответ 101 в восьмеричной системе
65/16=4(1)
4/16=0(1)ответ "В"
Из правил сервиса: "Пользователи признают, что задания, которые содержат большое количество задач, требующих решения, должны быть разделены на два или несколько заданий и в таком виде добавлены в Сервис для других Пользователей. То есть в одном задании не может быть несколько задач".
1 Необходимо собрать и запрограммировать робота, который
выталкивает кегли за пределы ринга.
2 Кеглями могут являться предметы соответствующие параметрам.
3 Роль ринга выполняет белое поле, ограниченное черной полосой с шириной линии 50мм.
(пометь как лучший ответ))