Шестизначное число оканчивается цифрой 4. Если эту цифру переставить из конца числа в начало, то есть приписать ее перед первой, не изменяя порядка остальных пяти, то получится число, которое в четыре раза больше первоначального. Найти это число.

Сперва зададим минимальное шестизначное число, которое будет удовлетворять условиям задачи.

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

Объявим переменные:

var n, n_, i:integer;

s:string;

Задаем минимальное шестизначное число для задачи:

n:=100004;

Далее запускаем повторение, пока наше число, умноженное на 4 не даст нужный результат:

repeat

n:=n+10;

str (n, s);

s:=s[6]+copy (s, 1,5);

writeln (n,' * 4! = ', n_);

val (s, n_, i);

until (n*4 = n_);

writeln (n,' * 4 = ', n_);

end.