Паскаль информатичка сука

[Yorenevann]

Задача: В программу вводится десятичное число N (1<N<10^19). Написать программу, переводящую это число в двоичную систему счисления и печатающую ее на экране.
Да, я долбаеб, помогите

 

[Dreammm]

решебник

 

[elleqt]

Пожалуйста, авторизуйтесь для просмотра ссылки.

 

[Yorenevann]

Пожалуйста, авторизуйтесь для просмотра ссылки.

Спасибо, но такие ответы можешь оставить себе, как найдешь ответ с условием exp для степени, тогда и поговорим

 

[#trallinator]

Могу на русском:
программа 1
Включить: ....;
старт:
Введите число:
Процесс...
Вывести число на экран
конец.

 

[#trallinator]

program str1;
uses crt;
function dec2bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;
var a: integer;
 
begin
clrscr;
writeln('Vvedite chislo:');
readln(a);
writeln('poluchenoe chislo:',dec2bin(a));
readln;
end.

 

[#trallinator]

@Yorenevann

 

[Yorenevann]

program str1;
uses crt;
function dec2bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;
var a: integer;

begin
clrscr;
writeln('Vvedite chislo:');
readln(a);
writeln('poluchenoe chislo:',dec2bin(a));
readln;
end.

это не совсем то что нужно, я уже это находил

 

[xaver1337]

это не совсем то что нужно, я уже это находил

ереван лошпедик хавер тапнул тебя

 

[Yorenevann]

ну пиздец, ребята, не смог помочь с домашкой девочке, оставили вы меня без секса

 

[blackmirror]

Пожалуйста, авторизуйтесь для просмотра ссылки.

ебать ты ебанный волшебник