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

Question

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

Answer 1

61

luxuru

30 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: