Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
В цикле прибавит 7 к самой себе 9 раз, т.е 7*9=63
Ответ: 63
7^80-7^65+(7^2)^15-7^2
=7^80-7^65+7^30-7^2
Количество 6 - это разность между степенями, если между числами стоит минус:
7^80-7^65 => 80-65=15
7^30-7^2 => 30-2=28
28+15=43
Ответ: 43
Вес одной точки на экране равен глубине цвета, т.е. сколько бит информации несет эта точка.
Найдем глубину цвета I по формуле:
2^I = K, где K = 256 цветов. Отсюда:
2^8 = 256 => глубина равна 8 => вес одной точки равен 8 бит
Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
end.