Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/114: Рейтинг темы: голосов - 114, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 13.04.2011
Сообщений: 4
1

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

13.04.2011, 20:36. Показов 21517. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задача на функцию.Написать программу, которая меняет з записи числа первую и последнюю цифру местами. Полученное число вывести на экран.

Добавлено через 25 секунд
помогите,пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2011, 20:36
Ответы с готовыми решениями:

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

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

Первую и последнюю цифры в записи числа поменять местами
1. Дано натуральное число x. Первую и последнюю цифры в записи числа поменять местами. (Нельзя...

Поменять в строке местами первую и последнюю встречающуюся цифру
В строке нужно поменять местами первую и последнюю встречающуюся цифру местами, не обязательно, что...

2
magirus
13.04.2011, 20:37
  #2
 Комментарий модератора 
называйте темы информативно
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.04.2011, 11:06 3
Лучший ответ Сообщение было отмечено Vikysi08 как решение

Решение

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 n,m,c1,cp:integer;
    k,i:byte;
begin
write('n=');readln(n);{например 12345}
cp:=n mod 10;{последняя цифра=5}
n:=n div 10;{число без последней цифры=1234}
m:=n;{запомним его}
k:=0;
while m>9 do{пока не останется 1 цифра}
 begin
  m:=m div 10;{первая цифра=1}
  k:=k+1;{количество разрядов без первого=4}
 end;
c1:=m;{запомним первую цифру=1}
for i:=1 to k do
 begin
  m:=m*10;{повышаем разряд числа, равного первой цифре=1000}
  cp:=cp*10;{повышаем разряд последней цифры=5000}
 end;
n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341}
writeln('n2=',n);
end.
1
14.04.2011, 11:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2011, 11:06
Помогаю со студенческими работами здесь

Написать программу, которая меняет местами в файле четные и нечетные слова
Помогите,пожалуйста! Создать текстовый файл с произвольным содержимым. Написать программу,...

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

Напишите программу, которая выводит на экран первую цифру целого числа
Дано двухзначное целое число . Напишите программу , которая выводит на экран первую цифру этого...

Написать программу, содержащую процедуру, которая меняет местами первый и последний элементы непустого списка
3. Написать программу, содержащую процедуру, которая меняет местами первый и последний элементы...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru