Задание:
Паскаль. Вводится восьмизначное число. Поменять в нем соседние цифры. Помогите решить задачу.
Решение:
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.
Знаете другой ответ?