Переведите из 620 десятичной в двоичную систему счисления

1001101100 Решение нужно?

Программа:

Pascal:

var

 chemodan, klad, dop: real;

begin

 write('Вес чемодана', #10, '<<< '); readln(chemodan);

 write('Вес ручной клади', #10, '<<< '); readln(klad);

 write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);

 writeln('Вес багажа: ', chemodan + klad + dop);

end.

Python:

chemodan = float(input('Вес чемодана\n>>> '))

klad = float(input('Вес ручной клади\n>>> '))

dop = float(input('Вес доп. предметов ручной клади\n>>> '))

print('Вес багажа:', chemodan + klad + dop)

Program primer;
Var
       f,h:text;
       I: integer;   
      S: string;   
 Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);

Writeln('текст в файл F: ');

readln(s);
writeln(f,s);   //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,'  ');
For i:=1 to length(s) do        
                                          begin
                                              write(h,s[i]);  //Переписать компоненты файла F в файл H 
                                              if (s[i]=' ') then            
                                         begin 
                                             write(h,'  ');   //вставляя в начало каждого слова по двум пробела
                                         end;
                                         end;        

close(f);
close(h);
end.
// Паскаль ABC