1. Дано целое число, лежащее в интервале от 1 до 1000000. Найти все цифры данного числа, переставить их наоборот, уменьшить его в три раза. В полученном числе найти первую и последнюю цифры.
На паскале
var a,n,k: integer;
begin
read(a);
n := a; {чтобы не трогать исходные данные}
k := 0;
while n > 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 < k do
n := n * 10;
writeln(k div n, ,k mod 10); {первая и последняя цифры}
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
