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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

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

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

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