Помощь по паскалю

//из 10 в 2
program algoritm;
uses crt;
var i,ost,des,n:integer;
m:array [1..99] of integer;
begin
 Writeln('Введите десятичное число:');
 read(des);
 n:=0;
 i:=0;
 repeat
 inc(n);//сколько раз делим
 inc(i);//текущий элемент
 ost:=des mod 2;//остаток
 des:=des div 2;//делим десятичное число
 m[i]:=ost;//записываем в массив остаток (элемент двоичного числа - 0 или 1)
 until des=0;//делим, пока не останется 0
 writeln('Двоичное число:');
 for i:=n downto 1 do //выводим наше двоичное число "с конца"
 write(m[i],' ');
end.

var
 decimal: word;
 bin_oct: byte;
 
function binary_octal(decimal:word;bin_oct:byte):string;
begin
 if (bin_oct <> 2) and (bin_oct <> 8) then
 write('Error')
 else
 while decimal > 0 do begin
 binary_octal := chr(ord('0') + (decimal mod bin_oct)) + binary_octal;
 decimal := decimal div bin_oct
 end;
end;
 
begin
 write('Decimal: ');
 readln(decimal);
 write('Binary or octal (2,8): ');
 readln(bin_oct);
 
 writeln(binary_octal(decimal,bin_oct));
 
readln
end.

Koenig (23.11.2012 / 22:27)
Fenix_61, по ссылке ходил?

ROM (23.11.2012 / 22:29)
[php]//из 10 в 2
program algoritm;
uses crt;
var i,ost,des,n:integer;
m:array [1..99] of integer;
begin
Writeln('Введите десятичное число:');
read(des);
n:=0;
i:=0;
repeat
inc(n);//ск

ROM (23.11.2012 / 22:40)
Fenix_61, Смотря на каком паскале пишеш... ABC?

Jane (23.11.2012 / 22:27)
а на олимпиаде побеждают те, у кого больше заучено методов программирования, больше тренировок и опыта! вот ты сделаешь перевод числа в двоичную, положешь решение себе в копилку! решишь еще сто разных

Fenix_61 (24.11.2012 / 06:24)
Ну тогда буду практиковаться ! Времени мало осталось (6 дек. Олимпиада), а вообще у меня есть преимущество : не малый опыт php + не плохая зрительная память !

Jane (24.11.2012 / 08:14)
ну, php тут мало поможет, это немного другое, все-таки тренируйся писать задачи олимпиадного типа!