Pascal

Написать программу, переводящую десятичное число в двоичную систему

Question

Информатика

Хрисанф

4 февраля, 04:44

Pascal

Написать программу, переводящую десятичное число в двоичную систему

+1

Ответы (1)

Знаете ответ?

Эра · Answer 1

Var

A:longint;

B:string;

Begin

Write ('A = ') ;

ReadLn (A) ;

A:=Abs (A) ;

While A > 0 do

Begin

if A mod 2 = 0 then B:='0'+B

else B:='1'+B;

A:=A div 2

End;

WriteLn (B)

End.

PascalНаписать программу, переводящую десятичное число в двоичную систему

Pascal

Написать программу, переводящую десятичное число в двоичную систему