Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
nik9611
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 10
1

В четырехзначном числе поменять местами первую и предпоследнюю цифру

09.03.2012, 12:21. Просмотров 1336. Ответов 3
Метки нет (Все метки)

В исходном четырехзначном числе поменять местами первую и предпоследнюю цифру местами.
Например : входное число 1234 выходное 3214?
Только можно пожалуйста именно для Лазаруса.
заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.03.2012, 12:21
Ответы с готовыми решениями:

Оставить одну цифру, после запятой, в вещественном числе
Скажите пожалуйста как оставить одну цифру в вещественном числе, после запятой,...

Поменять в четырехзначном числе вторую и третью цифру местами
Дано целое четырехзначное число n (n>0). Поменять в числе вторую и третью цифру...

Поменять местами первую и предпоследнюю цифру числа
Вводится натуральное число, не меньшее 100. Поменяйте местами его первую и...

Поменять местами первую и последнюю цифру в числе
var num : integer; //num=p last, first : integer; ...

Поменять местами первую и последнюю цифру в числе
Здравствуйте, я в C++ новичок и мне очень нужна помощь. Дано некое число,...

3
riv94
64 / 64 / 29
Регистрация: 13.02.2011
Сообщений: 392
09.03.2012, 13:57 2
примерно вот так будет выглядеть!!!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
 
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
 var
  x,y,z,e,k:integer;
begin
readln(k);     // Найдем исходные цифры в числе
e:=k mod 10;  // нашли последнюю цифру
x:=k div 1000; // нашли первую цифру
y:=(k div 100) mod 10;    // нашли вторую цифру
z:=(k div 10) mod 10; // нашли предпоследнюю цифру
// Сформируем новое число
k:=z*1000+y*100+x*10+e;
writeln(k); // выведем новое число!!!
end.
1
ShaZooke
Жираф в квадрате
32 / 32 / 2
Регистрация: 28.02.2010
Сообщений: 282
10.03.2012, 18:54 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a:integer;
     s,b:string;
begin
  readln(a);
  s:=IntToStr(a);
  b:=s[3];
  s[3]:=s[1];
  s[1]:=b;
  a:=StrToInt(s);
  writeln(a);
end;

Не по теме:

Help

1
nik9611
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 10
11.03.2012, 11:27  [ТС] 4
Спасибо всем)
Все отлично работает)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2012, 11:27

Поменять местами первую и четвертую цифру в пятизначном числе
Нужна программа и блок-схема. Помогите пожалуйста) Я начинающий :P

В четырехзначном числе поменять местами 1 и 3,2 и 3 с конца цифры
В четырехзначном числе поменять местами 1 и 3,2 и 3 с конца цифры

Поменять первую и предпоследнюю цифры местами
Доброго времени суток! Задача: дано натуральное число (>=100), поменять...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru