Регистрация
lyazzat260703
03.05.2021 09:18
Информатика
Есть ответ 👍

Создать программу для перевода чисел из двоичной в десятичную систему счисления. Паскаль.

153
395
Посмотреть ответы 2

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

nikitkanikita1
nikitkanikita1
4,4(23 оценок)

function step(x:integer):longint;

var i:integer; st:longint;

begin

if x=0 then step:=1 else begin

     st:=1;

     for i:=1 to x do begin

     st:=st*2;

     step:=st;

     end; end;

end;

var k,a,b,d,s:longint;

begin

s:=0;

k:=0;

readln(a);

repeat

     b:=a mod 10; // отделяем последнюю цифру числа

     d:=a div 10; // запоминаем число без последней цифры

     s:=s+b*step(k);  

     k:=k+1;

     a:=d;

until d=0;

writeln(s);

end.

fatimo4kkkka
fatimo4kkkka
4,4(81 оценок)
Если нужно от 15 до 2 : var i: integer    begin i: =2 while i< =15 do begin write(i**3,' ') end; end.  p.s. если нужно от 2 до 15 : var a,i: integer begin for i: =2 to 15 do begin write(i**3,' ') end; end.

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