Задать вопрос Регистрация
Помочь другим

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

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years