sum - суммирует все значения, которые переданы в нее. range - диапазон чисел от и до
Вот так вот, все в одну строчку)
Спасибо
Ответ дал: Гость
800 * 10 = 8000 символов било передано
5000 байт = 5000 * 8 = 40000 бит было передано
40000 : 8000 = 5 бит приходится на кодирование 1 символа
n = 2 ^ i
n = 2^5 = 32 символа размер алфавита.
Ответ дал: Гость
var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Популярные вопросы