1. Дано целое число, лежащее в промежутке от 1 до 1000000. Найти

1. Дано целое число, лежащее в интервале от 1 до 1000000. Отыскать все числа данного числа, переставить их напротив, уменьшить его в три раза. В полученном числе найти первую и заключительную цифры.

Задать свой вопрос
1 ответ
На паскале

var a,n,k: integer;
begin
read(a);
n := a; чтоб не трогать начальные данные
k := 0;
while n gt; 0 do
  begin
  k := k*10 + n mod 10;
  n := n div 10
  end;
теперь в k содержится перевернутое число
k := k div 3; уменьшенное в 3 раза
n := 1;
while n*10 lt; k do
n := n * 10;
writeln(k div n,' ',k mod 10); 1-ая и последняя числа
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт