Регистрация
таня2033
13.07.2020 08:44
Информатика
Есть ответ 👍

сор по информатики нужна и я

106
494
Посмотреть ответы 1

Ответы на вопрос:

superfifer
superfifer
4,7(33 оценок)
// pascalabc.net 3.2, сборка 1325 от 19.10.2016 function bintooct(s: string): string; // переводит двоичную триаду в восьмеричную цифру begin   case s of   '000': result: ='0';   '001': result: ='1';   '010': result: ='2';   '011': result: ='3';   '100': result: ='4';   '101': result: ='5';   '110': result: ='6';   '111': result: ='7';   end end; begin   var s2: =readlnstring('введите целое двочное число');   var k: =s2.length mod 3;   if k< > 0 then s2: =(3-k)*'0'+s2; // дополнить до кратной 3 длины   var s8: ='';   for var i: =1 to s2.length div 3 do       s8: =s8+bintooct(copy(s2,3*i-2,3));   writeln(s8); end. пример введите целое двочное число 10101100001 2541

Популярно: Информатика