Var a,b: integer; begin write('введите два числа: '); readln(a,b); a: =a+b; if a mod 5 = 0 then a: =a+1 else a: =a-2; writeln(a); end. введите два числа: 17 13 31
Спасибо
Ответ дал: Гость
чтобы закодировать любое число от 1 до 4000 нужно i=12 бит (2^i = 4000; i=12 бит). 300 * 12 = 3600 бит = 450 байт.
Популярные вопросы