Кублен
Оракул
(97078)
9 лет назад
uses crt; //эта короче и работает
var n:integer;s:String;
begin
clrscr;
readln(n);
while n>0 do begin
insert(chr(48+n mod 2),s,1);
n:=n div 2;
end;
writeln(s);
//readkey;
end.
Иван СигаевИскусственный Интеллект (151535)
9 лет назад
А в каком месте она короче?
Моя версия
while num>0 do begin
str:=char(ord('0')+(num mod 2))+str;
num:=num div 2;
end;
Ваша версия
while n>0 do begin
insert(chr(48+n mod 2),s,1);
n:=n div 2;
end;