Как исправить эту программу бегущая строка под общий случай. чтобы можно было ввести любую бегущую строку. - id452619920200111 от ИванПро228 11.01.2020 18:05

Question

Информатика: Как исправить эту программу бегущая строка под общий случай. чтобы можно было ввести любую бегущую строку. ! программа «бегущая строка» uses crt; procedure beg(x,y,len : byte; s : string); var i : byte; begin for i: =1 to len do s: = +s+ ; repeat gotoxy(x,y); writeln(copy(s,1,len)); delete(s,1,1); delay(100); until length(s) end; begin beg(10,10,20, бегущая строка ); end.

ИванПро228 · Accepted Answer

Var a: array of integer; var i: byte; var b: boolean; begin b: =true; setlength(a,8); var n: =0; writeln( введите число: ); readln(i); var d: =i; while i 0 do begin a[n]: =i mod 2; i: =i div 2; inc(n); end; setlength(a,n); for i: =0 to n-1 do begin if n=0 then begin write(0); break; end; swap(a[i],a[n-1]); write(a[i]); end; for i: =1 to n-1 do begin if n=0 then break; if a[i-1] a[i] then begin b: =false; break; end; end; if (b=false) then write( = ,d, это не палиндром ) else write( = ,d, это палиндром...

MOGZ ответил