Задача 1. Интересные числа
Петя, выполняя домашнюю работу по
алгебре, обнаружил числа с интересными свойствами: они повторяются в конце
записи своего квадрата. Например, число 6 повторяется в своем квадрате 36=6·6,
25 повторяется в своем квадрате 625=25·25, 76 повторяется в своем квадрате
5676=76·76.
Для заданного интервала [a,b], где 1≤a,b≤250, a<b найти все числа, которые соответствуют найденному Петей правилу.
Формат входных
данных
В первой строке входного файла записаны
два числа a и b.
Формат выходных
данных
В выходной файл нужно вывести найденные
числа (построчно).
Примеры
number.ini
|
number.out
|
1 10
|
1
5
6
|
10 100
|
25
76
|
Вариант 2.
program
interesnie_zisla;
var
a,b:integer;
i,j:
integer;
n:
1..3;
k:integer;
s:string;
BEGIN
a:=1;
b:=100;
for
i:=a to b do
if
(i mod 10=5) or (i mod 10=6) or (i mod 10=1) then
begin
str(i,s);
n:=length(s);
k:=1;
for j:=1 to n do k:=k*10;
if (i*i mod k = i) then writeln(i);
end;
END.
Вариант 3.
program
interesnie_zisla;
var
a,b:integer;
i: integer;
BEGIN
a:=1;
b:=100;
for
i:=a to b do
if
(i mod 10=5) or (i mod 10=6) or (i mod 10=1) then
if i<10 then begin if (i*i mod 10=i) then
writeln(i) end else
if i<100 then begin if (i*i mod 100=i)
then writeln(i) end else
if (i*i mod 1000=i) then writeln(i);
|