Найти все трехзначные числа, последние три цифры квадрата которых равны им самим

@malabar · Регистрация: 12.12.2012

Квадрат трехзначного числа оканчивается тремя
цифрами, которые как раз и составляют это число.
Найти такие числа.

@m-ch · 12.12.2012, 10:11

QBasic/QuickBASIC

1
2
3

FOR i = 100 TO 999
    IF i ^ 2 MOD 1000 = i THEN PRINT i
NEXT i

@АББА · 12.12.2012, 10:28

Ну по моему так:

QBasic/QuickBASIC

 CLS
FOR i=100 TO 999
k=i^2
x$=RIGHT$(STR$(k),3)
IF i=VAL(x$) THEN ?i,i^2
END

@malabar 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 11
		1
	Найти все трехзначные числа, последние три цифры квадрата которых равны им самим 12.12.2012, 09:15. Показов 1749. Ответов 2 Метки нет (Все метки) Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа. 0

	12.12.2012, 10:28

Опции темы

Решение