Регистрация
sidorova123441
22.05.2020 14:32
Информатика
Есть ответ 👍

Закодируйте слово программа в двоичном коде

132
359
Посмотреть ответы 2

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

1Аминка
1Аминка
4,4(71 оценок)
//вот программа, которая кодирует слова в системах счисления от 2 до 10 //первый ввод  -  число, второй - система счисления //pascal abc.net v3.0 var   a,i,b,r,n,j,bug: integer;   s,se,slo,slof: string; procedure preob(var a,b,n: integer; var se: string);   begin   repeat     b: =a mod n;     a: =a div n;     str(b,se);     s+=se;   until (a< =n-1);   end; begin readln(slo); readln(n); for j: =1 to length(slo) do begin; a: =ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i: =1 to length(s) div 2 do begin; se: =s[i]; s[i]: =s[length(s)-i+1]; s[length(s)-i+1]: =se[1]; end; write(s,'-'); slof: =slof+s; delete(s,1,length(s)); end; end.//слово программа она кодирует как  11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
shlyakhovdaniik
shlyakhovdaniik
4,5(84 оценок)

program p1;

uses crt;

var a,b,c,d,e,s:integer;

begin

a:=50;

b:=10;

c:=5;

d:=1;

writeln('сколько у вас монет по 50');

read(e);

s:=a *e;

writeln('сколько у вас монет по 10');

read(e);

s:=s+b*e;

writeln('сколько у вас монет по 5');

read(e);

s:=s+c*e;

writeln('сколько у вас монет по 1');

read(e);

s:=s+d*e;

write('Всего копеек ',s);

end.

Подробнее - на -

Объяснение:

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