Регистрация
pudova20001katya
05.01.2022 01:59
Информатика
Есть ответ 👍

Наказ виконавцеві виконати певні дії це
1.Команда
2.Проханя
3.Вказівка
4.Звертаня​

188
256
Посмотреть ответы 1

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

Юличка111333
Юличка111333
4,4(79 оценок)

program ss102;

var a,b,c,i,v:integer;

begin

readln(a);

v:=0;

b := a;

while a > 0 do begin

b = b div 10;

c = c + 1;

end;

for i:=0 to c do begin

b:=a mod 2;

a:=(a-b) div 2;

v:=v + b*exp(i*In(10));

end;

writeln(c);

end.

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