Алфавит,содержащий два символа, называется двоичным алфавитом.
Поэтому для кодирования 26 символов достаточно пятиразрядного кода.
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
Объем информации в первом случае: I=v1*t1, во втором I=v2*t2, где v- скорость передачи, t- время передачи. Так как объем информации в первом и во втором случае одинаков составим уравнение:
v1*t1=v2*t2
t2= v1*t1/v2 = 5000*25/10000= 12,5 с.
Десять плюс одиннадцать плюс двенадцать плюс четырнадцать плюс пятнадцать умножить на девятнадцать и разделить на пять равно.....
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем