var n,x,d: integer; begin writeln ('Введите число N:'); readln(n); d:=10; for x:=1 to n do begin while d<=x do d:=d*10; if x*x mod d = x then writeln (x,'*',x,'=',x*x); end; end.
Answers & Comments
uyuczukukuke
N = int(input("Введите число n:")) d = 10 for x in range(1,n+1): while d<=x: d = d*10 if x*x % d == x: print(x,'*',x,'=',x*x)
uyuczukukuke
" посему программисты и вынуждены знать много языков" не могу не согласиться. А почему вы считаете что С "круче" ассемблера? Последнего я боюсь как огня, но любой отладчик переводит код как раз на ассемблер, поэтому, лично по моему мнению, знание ассемблера будет куда полезнее. Что до питона, не прикоснулась бы к этой бяке по своей воле.
uyuczukukuke
"Ну если Вы будете отлаживать драйверы, писать системы защиты информации, заниматься криптографией - он Вам может оказаться полезен" А как же божественный реверсинг? Хотя сейчас что C что ассемблер могут пригодится только для личных целей, навряд ли эти языки сейчас где-нибудь востребованы.
Answers & Comments
d = 10
for x in range(1,n+1):
while d<=x: d = d*10
if x*x % d == x: print(x,'*',x,'=',x*x)
Пример:
Введите число n:7
1 * 1 = 1
5 * 5 = 25
6 * 6 = 36
Verified answer
N = int(input("Введите число N: "))d = int(10)
for x in range(1,n):
while (d<=x): d*=10
if ((x*x) % d == x): print(x,"*",x,"=",x*x)