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)
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.
Вопрос:
На паскале писать?
ответ: Проверь сперва
var
a, s: integer;
begin
s := 0;
repeat
writeln('Введите число: ');
read(a);
if (a mod 3 = 0) and (a mod 10 = 9)
then s += a;
until a = 0;
writeln('Сумма: ', s);
end.