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

Помогите решить задачу.

Ответы (1)

Лавита 25.10.2024 3

var i,n:integer;s1,s2,s3:string;
a:array [1..100] of integer;
begin
write('Введите Число: ');
readln(n);
str(n,s1);
if length(s1)=8 then begin
for i:=1 to 7 do begin
s2:=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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

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

Думаешь ответы не верны?

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

Помогите решить задачу.