Паскаль. вводится восьмизначное число. поменять в нем соседние цифры. решить .

128

311

Посмотреть ответы 2

Ответы на вопрос:

SanzhikGanzhik

Информатика

4,6(93 оценок)

var i,n: integer; s1,s2,s3: string; a: array [1..100] of integer; beginwrite('введите число: '); readln(n); str(n,s1); if length(s1)=8 then beginfor i: =1 to 7 do begins2: =copy(s1,i,1); s3: =copy(s1,i+1,1); delete(s1,i+1,1); delete(s1,i,1); insert(s3,s1,i); insert(s2,s1,i+1); i: =i+1; end; end; writeln(s1); end.