Задать вопрос Регистрация
Помочь другим

  • Перевод десятичных и смешанных дробей из 10-тичной СС в разные ССи обратный перевод. Сложение и вычитание десятичных дробей в разных СС

Ответы 1

  • var

    a,b,c,i,n,p,s:integer;x:real;p1,g:string;beginreadln(a);writeln('is kakoi perevodim?');readln(b);if b=10 then beginwriteln('v kakoi perevodim?');readln(c);end;n:=0;p:=0;if b<>10 then beginrepeatx:=exp(ln(b)*n);s:=Round(x);p:=p + (a mod 10)*s;a:= a div 10;n:=n+1;until a=0;endelse beginrepeatg:=IntToStr(a mod c);p1:=p1 + g;a:=a div c;until a<c;p1:=p1+IntToStr(a);end;if p=0 then beginfor i:=1 to length(p1) dowrite(p1[length(p1)-i+1]);endelsewrite(p);end.

    • Автор:

      haynes
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years