Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/16: Рейтинг темы: голосов - 16, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.06.2010
Сообщений: 7
1

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

11.06.2010, 09:45. Показов 3068. Ответов 4
Метки нет (Все метки)

Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется путем исключения средней цифры исходного числа. Если количество цифр не 5, то М= N. Пример. N = 12345, М = 1245.
ТЕМА:Указатели. Динамическая память.
Задачи целочисленной арифметики.[/B]
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2010, 09:45
Ответы с готовыми решениями:

Получить новое число M, которое образуется из числа N путем замены последней цифры
Дано натуральное число N. Получить новое число M, которое образуется из числа N путем замены...

Получить новое число y из исходного, поменяв местами две цифры исходного числа
Дано вещественное число x. Получить новое число y из исходного, поменяв местами две цифры исходного...

Работа с цифрами числа. Дано натуральное число N. Получить новое число путем удаления всех нулевых цифр из цифровой записи числа. Пример N=1001. От
Работа с цифрами числа. 1)Дано натуральное число N. Получить новое число путем удаления всех...

Получить из исходного числа новое число, изменив порядок следования цифр на обратный
Дано некоторое целое число b. Написать программу, которая получает число d, состоящее из тех же...

__________________
4
3 / 3 / 0
Регистрация: 19.05.2010
Сообщений: 36
19.02.2011, 11:33 2
У меня тот же вариант сегодня написал програмку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var N:string;
f:text;
begin
cls;
assign (f,'k:\number.txt');
reset(f);
while not EOF(f) do begin
readln(f,n);
if n[5]=n[length(n)] then Delete(n,3,1);
writeln(n);
end;
close(f)
end.
Проверял на числах
1
12
123
1234
12345
результат
1
12
123
1234
1245

надеюсь вариан с файлов пойдёт? если что Вы сами можете исправить.
0
Mobile Software Engineer
Эксперт С++
5358 / 1577 / 956
Регистрация: 23.01.2011
Сообщений: 3,211
19.02.2011, 12:43 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var
 st: string;
begin
 readln(st);
  if length(st)=5 then
   begin
    delete(st, 3, 1);
   end;
 write(st);
end.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
19.02.2011, 12:55 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
28
29
30
31
32
Uses
 CRT;
Var
 i,j,kol,m,l,col:integer;
begin
readln(i);
j:=i;
kol:=0;
repeat
 inc(kol);
 j:=j div 10;
until j=0;
if kol=5 then
begin
 m:=0;
 j:=1;
 col:=0;
  repeat
   l:=i mod 10;
   inc(col);
    if col<>3 then
    begin
     m:=m+(l*j);
     j:=j*10;
    end;
   i:=i div 10;
  until i=0;
end
else
 m:=i;
writeln(m);
end.
Число<>строке.И работа со строками в задании на числа не есть гуд.
Да и задание
ТЕМА:Указатели. Динамическая память.
0
3 / 3 / 0
Регистрация: 19.05.2010
Сообщений: 36
19.02.2011, 13:13 5
У нас препод проглотит спокойно и это. Условие то выполняется и ладно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2011, 13:13

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Получить новое число M которое образует из N
дано натуральное число N Получить новое число M которое образует из N путем замеены последней...

Массив: Получить новый массив путем исключения Min и Max значений исходного массива...
Из исходного массива получить новый массив, из которого выбросить максимальное и минимальное...

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


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

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

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