ЭКРАН.................................................
0.01010001111010111000010100011110101110000101000<span>111 в двоичной с/c
</span><span><span>0.243656050753412172702436560507534121727024365605078 в восьмеричной с/с</span><span>
</span></span>
Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит
Uses crt;
var i: shortint; sr: real;
begin
clrscr;
for i:=-6 to 33 do
sr:=sr+i;
sr:=sr/40;
writeln('среднее арифметическое = ',sr:4:1);
<span>end.</span>
For всегда равен нулю, если делимое меньше делителя. Взятие остатка mod вычисляется остатка полученный при выполнении целичесленного делителя