Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 39, средняя оценка - 4.79
Vikysi08
0 / 0 / 0
Регистрация: 13.04.2011
Сообщений: 4
#1

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

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

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

Добавлено через 25 секунд
помогите,пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2011, 20:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать программу, которая меняет з записи числа первую и последнюю цифру местами (Pascal ABC):

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

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

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

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

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

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

2
magirus
13.04.2011, 20:37
  #2
 Комментарий модератора 
называйте темы информативно
0
Puporev
Модератор
54020 / 41653 / 14732
Регистрация: 18.05.2008
Сообщений: 97,929
14.04.2011, 11:06 #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
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2011, 11:06
Привет! Вот еще темы с ответами:

Найти первую цифру , последнюю цифру, количество цифр и сумму цифр числа - Pascal
Дано натуральное число n. Найти первую цифру , последнюю цифру, количество цифр, сумму цифр Заранее спс)

Написать программу, которая в массиве случайных чисел С[1.5,1.5] меняет местами значения элементов главной и вспомогательной диагонали - Pascal ABC
Написать программу, которая в массиве случайных чисел С меняет местами значения элементов главной и вспомогательной диагонали.

Дано натуральное число. Определить первую и последнюю цифру числа n - Pascal
Дано натуральное число n(n<=100).Определить первую и последнюю цифру числа n.

Написать программу, которая меняет в массиве [1.n,1.n], n<=10 четные числа на плюс, а нечетные на минус (-) - Pascal ABC
Дан массив А, n&lt;=10 Необходимо написать программу, которая заменяет четные числа массива на плюс(&quot;+&quot;), а нечетные на...


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

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

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