Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Написать ПРОЦЕДУРУ перевода целого числа из десятичной системы в двоичную. ПАСКАЛЬ.ПРОЦЕДУРЫ И ФУНКЦИИ

Ответ оставил Гость

program perevod; 

Uses crt;
var z:integer;
procedure ToBin(z:integer);
begin
if (z>1) then ToBin(z div 2);
write(z mod 2:1);
end;

begin
clrscr;
  write(Введи число:);
readln(z);
  writeln(Число в десятичной системе:,z:6);
  write(Число в двоичной системе: );
   ToBin(z);
readkey;
end.