Напечатать число, получаемое при прочтении его цифр справа налево

@dark-bull · Регистрация: 14.03.2010

Студворк — интернет-сервис помощи студентам

Дано натуральное число.
а) Напечатать число, получаемое при прочтении его цифр справа налево.
б) Приписать по двойке в начало и конец записи этого числа.
в) Удалить из него все цифры 5.
г) Переставить его первую и последние цифры.
д) Приписать к нему такое же число

@koorya · 18.03.2010, 12:13

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var
    s:string;
  i,j,h:integer;
begin
  clrscr;
  readln(h);
  
  str(h,s);
  for i:=length(s) downto 1 do
      write(s[i]);
  writeln;
 
  str(h,s);
  s:='2'+s+'2';
  writeln(s);
 
  str(h,s);
  for i:=1 to length(s) do
      if s[i]='5' then delete(s,i,1);
  writeln(s);
 
  str(h,s);
  s:=copy(s,length(s),1)+copy(s,2,length(s)-2)+copy(s,1,1);
    writeln(s);
 
  str(h,s);
  s:=s+s;
  writeln(s);
  readkey;
end.

возможно еще использование функции VAL(s:string,i:integer,j:integer); , где s строка с числом, i - что будет содержать число из строки, j - для ошибки если она есть,

@Puporev · 18.03.2010, 12:15

koorya, Так это наверное без строк нужно делать.

@Moonlight Inc. · 18.03.2010, 12:56

Puporev, +1

юзайте mod,div

@koorya · 18.03.2010, 15:18

Puporev просто и назад ведь можно запросто перевести в интежер, или нужна сложность задачи?

@Puporev · 18.03.2010, 15:42

koorya, Это не мне нужно, просто по опыту знаю, что преподаватели требуют работать с числами типа Longint, с использованием циклов. Понятно что в практике это никому не нужно, но их же мучают, что бы думать научились алгоритмически, а такие задачки к этому располагают. Проще конечно быть программистом-кнопочником в Делфи, где за тебя все написано, только помнить нужно на какую кнопку нажать какую функцию вызвать.

@koorya · 18.03.2010, 17:19

Puporev, ну тогда я решения не знаю, наверное. эх, преподы, преподы...

хотя вообще-то наверное даже знаю, mod и div мне в помощь

Добавлено через 20 минут
а)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var
   s:array[1..100] of integer;
    a,i,j,b:integer;
begin
    clrscr;
  readln(a);
  b:=a;
  j:=0;
 
  while b<>0 do
    begin
         j:=j+1;
         s[j]:=b mod 10;
         b:=b div 10;
    end;
    for i:=1 to j do
        write(s[i]);
    writeln;
 
 
    readln;
end.

раз заставляют трудные делать, добиваются, чтоб поняли алгоритмы эти все, что тогда спрашивают тут, их ведь учат...

Добавлено через 21 минуту
таак, а дополнять прошлый пост, видимо уже нельзя...
б)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
var
   s,s1:array[1..100] of integer;
    a,i,j,b:integer;
begin
    clrscr;
  readln(a);
  b:=a;
  j:=0;
 
  while b<>0 do
    begin
         j:=j+1;
         s[j]:=b mod 10;
         b:=b div 10;
    end;
 
    for i:=j downto 1 do
        s[i+1]:=s[i];
    s[1]:=2;
    s[j+2]:=2;
    for i:=j+2 downto 1 do
        write(s[i]);
    writeln;
    for i:=1 to j+1 do //возвращаем на место массив цифр этого числа, мало ли, вдруг пригодицо
       s[i]:=s[i+1];
    for i:=j downto 1 do
        write(s[i]);
    writeln;
 
    readln;
end.

если придецо писать еще один пост по мере появления решений, то я не виноват, и за раз все думать долго не охото и не удобно

хахаха, удобно сделано

Добавлено через 27 минут
в)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var
   s,s1:array[1..100] of integer;
    a,i,j,b,n:integer;
begin
    clrscr;
  readln(a);
  b:=a;
  j:=0;
 
  while b<>0 do
    begin
         j:=j+1;
         s[j]:=b mod 10;
         b:=b div 10;
    end;
 
 
    n:=0;
    for i:=1 to j do
        begin
             if s[i]<>5 then
                s1[i-n]:=s[i]
             else
                 begin
                      n:=n+1;
                 end;
        end;
    for i:=j-n downto 1 do
        write(s1[i]);
    writeln;
 
    readln;
end.

Добавлено через 4 минуты
г)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var
   s,s1:array[1..100] of integer;
    a,i,j,b,n:integer;
begin
    clrscr;
  readln(a);
  b:=a;
  j:=0;
 
  while b<>0 do
    begin
         j:=j+1;
         s[j]:=b mod 10;
         b:=b div 10;
    end;
 
    n:=s[1];
    s[1]:=s[j];
    s[j]:=n;
 
    for i:=j downto 1 do
        write(s[i]);
    writeln;
 
    readln;
end.

Добавлено через 3 минуты
д)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var
   s,s1:array[1..100] of integer;
    a,i,j,b,n:integer;
begin
    clrscr;
  readln(a);
  b:=a;
  j:=0;
 
  while b<>0 do
    begin
         j:=j+1;
         s[j]:=b mod 10;
         b:=b div 10;
    end;
 
    for i:=j downto 1 do
        s[i+j]:=s[i];
 
    for i:=j*2 downto 1 do
        write(s[i]);
    writeln;
 
    readln;
end.

Ура! Ура! Ура!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@dark-bull 1 / 1 / 0 Регистрация: 14.03.2010 Сообщений: 26

	Напечатать число, получаемое при прочтении его цифр справа налево 18.03.2010, 11:25. Показов 2772. Ответов 6 Метки нет (Все метки) Дано натуральное число. а) Напечатать число, получаемое при прочтении его цифр справа налево. б) Приписать по двойке в начало и конец записи этого числа. в) Удалить из него все цифры 5. г) Переставить его первую и последние цифры. д) Приписать к нему такое же число 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.03.2010, 12:15
	koorya, Так это наверное без строк нужно делать. 0

@Moonlight Inc. 18 / 18 / 9 Регистрация: 07.10.2008 Сообщений: 89
	18.03.2010, 12:56
	Puporev, +1 юзайте mod,div 0

@koorya 334 / 181 / 68 Регистрация: 18.03.2010 Сообщений: 586 Записей в блоге: 11
	18.03.2010, 15:18
	Puporev просто и назад ведь можно запросто перевести в интежер, или нужна сложность задачи? 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.03.2010, 15:42
	koorya, Это не мне нужно, просто по опыту знаю, что преподаватели требуют работать с числами типа Longint, с использованием циклов. Понятно что в практике это никому не нужно, но их же мучают, что бы думать научились алгоритмически, а такие задачки к этому располагают. Проще конечно быть программистом-кнопочником в Делфи, где за тебя все написано, только помнить нужно на какую кнопку нажать какую функцию вызвать. 0

Опции темы