Как красиво вывести ответ?

@STREES17 · Регистрация: 03.12.2017

Author24 — интернет-сервис помощи студентам

Delphi

Program l2k;
var
      f:array [1..255] of integer;
      a,b,i,k,n,g,v,m:integer;
 
begin
  for i:=0 to 1000000 do
  begin
    a:=0;
    b:=i;
 
    while b>0 do
    begin
      a:=a*10+b mod 10;
      b:=b div 10;
    end;
    if a=i then
    begin
 
      k:=k+1;
      v:=i;
      writeln('  Палиндром в 10-й системе счисления ',i);
    end;
 
    while v>=1 do
    begin
      if v mod 2 = 0 then
      begin
        v:=v div 2;
        g:=g+1;
        f[g]:=0;
      end
      else
      begin
        v:=v div 2;
        g:=g+1;
        f[g]:=1;
      end;
    end;
    m:=g;
    for g:=m downto 1 do
      Write(f[g],'');
        Writeln('');
  end;
  Writeln('-----------------------------------');
  Writeln('Число палиндромов ',k);
  Readln
end.

Между результатами очень большое расстояние

@Matan! · 04.12.2017, 11:40

Плохо написано...
Я вот запустил, программа вылетела, не показав результата. При пошаговом выполнении увидел, что g не инициализированно. Как так? Вот и вылетает ошибка в цикле:

Delphi

1 2	for g := m downto 1 do Write(f[g], '');

Добавлено через 1 минуту
Да и смысл было перед этим циклом писать:

Delphi

m := g;

?
К чему эта лишняя переменная?

	04.12.2017, 11:40