
Piakbanuk
7 год назад
Помогите написать программу на Pascal
Из трехзначного числа X вычли его последнюю цифру. Когда результат разделили на 10, а к частному слева приписали последнюю цифру числа X. То получилось число N. По заданному N найти число X (значение N вводится с клавиатуры, 10< = N< = 999 , и при этом число десятков в N не равно нулю).
ОТВЕТЫ

Dienikak
Aug 12, 2019
Если было число ABC = X, то после деления на 10 стало AB, а после приписывания слева CAB = N. Для получения из N числа X просто переставляем первую цифру в конец.
var
N: integer;
begin
readln(N);
write(10 * (N mod 100) + (N div 100))
end.
var
N: integer;
begin
readln(N);
write(10 * (N mod 100) + (N div 100))
end.
111
Смежные вопросы: