Дано натуральное число n> 1.равно ли оно сумме своих делителей(включая единицу,но не включая себя)? нужен циклический алгоритм решения данной в паскале.

109

301

Посмотреть ответы 3

Ответы на вопрос:

Response21

Информатика

4,7(43 оценок)

Program digit; const min = 1; var n, sum, i: integer; begin write('n = '); readln(n); if n < = min then writeln('число n должно быть больше ', min) else begin sum : = 0; for i : = min to n - 1 do if n mod i = 0 then sum : = sum + i; if n = sum then writeln('число ', n, ' равно сумме своих делителей') else writeln('число ', n, ' не равно сумме своих делителей'); end; readln; end.

mihscka0605

Информатика

4,4(76 оценок)

Max: =100 for q: =2 to max do begin sum: =0; for q1: =1 to q-1do if (q mod q1=0) then sum: =sum+q1; if q=sum then writeln(q,'-искомое'); end;

misa0231as0231

Информатика

4,5(5 оценок)

2) дано: 150 страниц 40 строк 60 символов символ = 8бит решение: 8*60*40*150=2880000бит (вычисляем вес книги в битах) 2880000бит: 8(получаются байты): 1024(получаются килобайты): 1024(получаются мегабайты)=0,3мб(это стандарт) p.s. прости, если неверно оформил просто мы никокгда не оформляли на информатике