Переставить первую и последнюю цифры числа n

17.06.2013, 21:05. Показов 994. Ответов 0

Метки нет (Все метки)

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

Написала программу вот так, но как то мне не особо нравится, что все так примитивно и громоздско, может кто посоветует, как можно сократить задачку?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,d,b,aa,k,s:integer;
begin
write(' à =  ');
readln(a);
aa:=a;
s:=0;
while a>0 do begin
    k:=a mod 10;
    s:=s*10+k;
    a:=a div 10;
    end;
while s>0 do begin
 b:=s mod 10;
 writeln(b);
 s:=s div 10;
end;
d:=1; while aa div (d*10)>0 do d:=d*10;
aa:=aa mod 10*d+aa mod d div 10*10+aa div d;
WriteLn('ответ = ', aa);
end.

Добавлено через 7 минут
все больше не надо

зама допетрила вот так можно все работает

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a,d,b,aa,k,s:integer;
begin
write('à =  ');
readln(a);
aa:=a;
s:=0;
while a>0 do begin
    k:=a mod 10;
    s:=s*10+k;
    a:=a div 10;
    end;
d:=1; while aa div (d*10)>0 do d:=d*10;
aa:=aa mod 10*d+aa mod d div 10*10+aa div d;
WriteLn( aa);
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

17.06.2013, 21:05

Ответы с готовыми решениями:

Переставить местами первую и последнюю цифры заданного числа
С клавиатуры вводится длинное целое число, не менее 50 цифр.Переставить местами первую и последнюю цифры данного числа и вывести полученное...

Переставить местами первую и последнюю цифры этого числа
Дано натурально число n. Переставить местами первую и последнюю цифры этого числа. В программе использовать любой цикл

Переставить местами первую и последнюю цифры заданного натурального числа
2. Переставить местами первую и последнюю цифры заданного натурального числа.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

17.06.2013, 21:05

Помогаю со студенческими работами здесь

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

Программа, которая меняет местами первую и последнюю цифры числа
Программа которая меняет местами первую и последнюю цифры числа

Переставить в исходном четырёхзначном числе первую и вторую цифры местами
Переставить в исходном четырёхзначном числе первую и вторую цифры местами. Например: Входное число 1234, выходное 2134.Сделать нужно так...

Дано число (н) надо переставить первую и последнюю цифры этого числа
надо решить через while Дано число (н) надо переставить 1-ю последнюю цифры этого числа если можно с блок-схемами

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

Наверх