Var
N,S,d:integer;
Begin
S:=0;
Write('N = ');ReadLn(N);
For d:= 1 to N do
if N mod d = 0 then S:=S+d;
WriteLn('S = ',S)
End.
1) с = 2 + 12 = 14
2) с = 1 + 14 = 15
3) с = 1
Вопрос неправильно скорректирован.
Для представления текстовой информации в компьютере используется алфавит мощностью 256 символов. Один символ из такого алфавита несет 8 бит информации (28 =256). 8 бит =1 байту, следовательно, двоичный код каждого символа в компьютерном тексте занимает 1 байт памяти.
Вредные - любой шум выше 75 Децибел
Полезные - все успокаивающие, например: шелест листьев, тихий звон колокольчиков, капли дождя, стучащие по окну или крыше и тд, тут уж что кого успокаивает