Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
2^9=512 различных комбинаций значений переменных
Для второго рисунка в программе вместо y+8 шаг 4 надо взять y+4 шаг 2
<h2>
Ответ:</h2>
1 символ = 1 байт.
8 кбит/с = 1024 байта/c.
60*1024=61 440 символов за минуту.