паскаль,программа для перевода чисел из 10-ой системы счисления в другую до10-ой

[Nikitaunett]

program iziov;
uses crt;
var a,s,d,f,g,h,j,k,l:integer;
ui: array[1..100] of integer;
begin
write('введите число');
readln(a);
write('введите систему счисления в которую надо перевсти это число');
readln(s);
if((s<>0) and (s<>1)) then
repeat
d:=a mod s;
a:=a div s;
f:=a;
if(f<s) then
write(f);
write(d);
until(a<s);
readln();
end.
как сделать чтобы эта программа если вводишь число 4 и ситему 2 выводила 100, а не 010

[Greblin]

Задачка проще всего решается рекурсивно. Как Вы сделали тоже можно, но тогда надо будет в массиве запоминать цифры, а потом выводить их в обратном порядке

program iziov;


procedure conv(a, s: integer);
begin
if (a div s <> 0) then conv(a div s, s);
write(a mod s);
end;

var a,s,d,f,g,h,j,k,l:integer;
ui: array[1..100] of integer;
q,w,e,r:string;
begin
write('введите число');
readln(a);
write('введите систему счисления в которую надо перевсти это число');
readln(s);
if((s<>0) and (s<>1)) then
  conv(a, s);
readln;
end.

[Nikitaunett]

а мне и надо через массив мы просто conv и string; не проходили

[Greblin]

Если бы Вы чуть внимательнее прочитали код, то увидели бы, что функция conv описана в самом начале, а переменные типа string не используются (вообще они попали в код только потому, что мне лень было их стирать из Вашего кода)
Если через массив, то у Вас описан массив ui. На каждой итерации цикла записываете в него то, что получилось в остатке, а потом выводите с конца

[mihali4]

А если б еще чуточку внимания и взглянуть вниз, в "Похожие темы", ТС моментально убедился бы, что велосипед давно изобретен...