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

@Alex1526 · Регистрация: 28.03.2015

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

Задано натуральное трехзначное число. Получить из его цифр четырехзначные числа, у которых цифры исходного числа идут в том же порядке, но одна из них повторяется, например: исходное число 345.
Результат: 3345 3445 3455.
Заранее спасибо.

@kukuryza · 28.03.2015, 14:45

Pascal

var a,b,c,d,e,f,g:integer;
begin
readln(a);
b:=a mod 10;
c:=(a mod 100)div 10;
d:=a div 100;
e:=(((d*10+d)*10+c)*10+b);
f:=(((d*10+c)*10+c)*10+b);
g:=(((d*10+c)*10+b)*10+b);
writeln(e,' ',f,' ',g);
end.

@Alex1526 0 / 0 / 0 Регистрация: 28.03.2015 Сообщений: 7
		1
	Получить из цифр числа четырехзначные числа, у которых цифры исходного числа идут в том же порядке 28.03.2015, 14:06. Показов 2566. Ответов 1 Метки нет (Все метки) Задано натуральное трехзначное число. Получить из его цифр четырехзначные числа, у которых цифры исходного числа идут в том же порядке, но одна из них повторяется, например: исходное число 345. Результат: 3345 3445 3455. Заранее спасибо. 0

	28.03.2015, 14:45

Опции темы

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

Решение