Аетий
6 год назад
Натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата. Например, 25^2=625. Напишите программу, которая находит все автоморфные числа на отрезке [ a , b ] .Входные данныеВходная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .Выходные данныеПрограмма должна вывести в одну строчку все автоморфные числа на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет, программа должна вывести число -1.Примерывходные данные20 100выходные данные25 76 На паскале, через циклы, пожалуйста.
ОТВЕТЫ
Максим
Oct 24, 2020
PascalABC.NET
begin
var flag := true;
var a := readinteger;
var b := readinteger;
for var i := a to b do
if (i * i).ToString.EndsWith(i.ToString) then
begin
write(i, ' ');
flag := false;
end;
if flag then write(-1)
end.
begin
var flag := true;
var a := readinteger;
var b := readinteger;
for var i := a to b do
if (i * i).ToString.EndsWith(i.ToString) then
begin
write(i, ' ');
flag := false;
end;
if flag then write(-1)
end.
99
Смежные вопросы:
