Автоморфные числа. Натуральное число называется автоморфным, если оно равно последним цифрам его квадрата. Например: 25^2=625. Напишите программу, которая
5-9 класс
|
вводит натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.
var
n, i, m: longint;
s1, s2: string;
l1: integer;
begin
Write('Введите натуральное число: ');
Readln(n);
Writeln('Автоморфные числа:');
for i := 1 to n do
begin
m := sqr(i);
Str(i, s1);
l1 := Length(s1);
Str(m, s2);
if s1 = Copy(s2, Length(s2) - l1 + 1, l1) then Writeln(i)
end
end.
Тестовое решение:
Введите натуральное число: 10000
Автоморфные числа:
1
5
6
25
76
376
625
9376
Другие вопросы из категории
Запишите 5 свойств объектов операционной системы
Рабочий стол
Мой компьютер
Мои документы
x:=3,y:=2,x:=y,z:=2 if x больше y then Z:=y-1; else Z:=x+1
Читайте также
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
числа, меньшие заданного числа N. ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ!!!
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5.
Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число - максимальное число, кратное 5.