10. Авmoморфные числа. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например: 25 и 625. Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N.
Ответы
Ответ дал:
0
var n,i,l:integer; s1,s2:string;
begin
write('n = '); readln(n);
for i:=1 to n do
begin
str(i,s1);
l:=length(s1);
str(i*i,s2);
if s1=copy(s2,length(s2)-l+1,l) then writeln(i,' ',i*i);
end;
end.
Пример:
n = 10000
1 1
5 25
6 36
25 625
76 5776
376 141376
625 390625
9376 87909376
begin
write('n = '); readln(n);
for i:=1 to n do
begin
str(i,s1);
l:=length(s1);
str(i*i,s2);
if s1=copy(s2,length(s2)-l+1,l) then writeln(i,' ',i*i);
end;
end.
Пример:
n = 10000
1 1
5 25
6 36
25 625
76 5776
376 141376
625 390625
9376 87909376
Ответ дал:
0
спасибо, конечно, но это не процедура.
Ответ дал:
0
О процедуре здесь речи не было. Задание: "Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N."
Ответ дал:
0
сори, реально, забыла уточнить:программа должна содержать процедуру
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад