Jump to content
СофтФорум - всё о компьютерах и не только

Vit16

Newbies
  • Content Count

    2
  • Joined

  • Last visited

Community Reputation

0

About Vit16

  1. Огромное спасибо за подсказку.Итак,вот что у меня получилось: Прога переводит из 10в2в8: Program Siste; Uses Crt; var i:byte; c,bin_d:string; n1,n2:longint; n:integer;
  2. Здравствуйте, не могу составить программу для перевода из двоичной системы в восьмеричную.Помогите чем можите, плиззз или ссылочку дайте. А вот что я накуролесил: Program systemcoder; Uses crt; Var a:string; i:byte; begin ClrScr; write('Введите число: '); readln(a); writeln; for i:=1 to length(a) do begin if a='001' then write('1'); if a='010' then write('2'); if a='011' then write('3'); if a='100' then write('4'); if a='101' then write('5'); if a='110' then write('6'); if a='111' then write('7'); if a='1000' then write('8'); if a='1001' the
×
×
  • Create New...