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

@Crazy420 · Регистрация: 10.11.2015

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

Здравствуйте, помогите написать программу на Delphi и с формой.
Задание:
Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется путем исключения средней цифры исходного числа. Если количество цифр не 5, то М= N. Пример. N = 12345, М = 1245.

@ZfoxAK · 04.12.2015, 07:00

Delphi

if N>9999 then
begin
S:=IntToStr(N);
Delete(S,3,1);
M:=StrToInt(S);
end else M:=N;

@unifikator · 04.12.2015, 07:03

Прилагаю проект на Delphi.

@AHBAR · 04.12.2015, 12:25

Сообщение от ZfoxAK

if N>9999

тут не учитывается 6-значные цифры, лучше так:

Delphi

1	if Length(IntToStr(N)) = 5 then M := StrToInt(Copy(IntToStr(N),1,2)+Copy(IntToStr(N),4,2)) else M := N;

Добавлено через 2 минуты
или так тогда уж:

Delphi

if ( (N>9999) and (N<100000) ) then
begin
S:=IntToStr(N);
Delete(S,3,1);
M:=StrToInt(S);
end else M:=N;

Добавлено через 47 секунд
или так:

Delphi

if Length(IntToStr(N)) = 5 then
begin
S:=IntToStr(N);
Delete(S,3,1);
M:=StrToInt(S);
end else M:=N;

@Crazy420 0 / 0 / 0 Регистрация: 10.11.2015 Сообщений: 21
		1
	Получить новое число, которое образуется путем исключения средней цифры исходного числа 04.12.2015, 06:47. Показов 750. Ответов 3 Метки метка, метками, с, строка (Все метки) Здравствуйте, помогите написать программу на Delphi и с формой. Задание: Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется путем исключения средней цифры исходного числа. Если количество цифр не 5, то М= N. Пример. N = 12345, М = 1245. 0

	04.12.2015, 12:25