МС
Мырза Саматов

найти квадраты полных чисел (qbasic)

решал так:
print "zadaite chislo"
input n
s=1
for i=1 to n
s=n^2
print "kvadrat chisla";i;"=";s
next i
сказали неправильно (или надо что то доделать)

Степан
Степан

и+1 сделай в цикле, чтобы число увеличилось, а то так и будет одно и то же в квадрат возводить

Юлия Бурмоличенко
Юлия Бурмоличенко

Надо s=i*i или s=i^2
Хотя "полные числа" - это что-то новое в математике.

Целиком:
print "zadaite chislo" : input n : for i=1 to n : s=i^2 : print "kvadrat chisla";i;"=";s : next

Похожие вопросы
програмирование в QBASIC
неправильно считает квадраты чисел в экселе
найти квадраты полных чисел (qbasic) <noindex> http://cs406417.userapi.com/v406417710/8887/YowLIz3mDIs.jpg </noindex>(сказали, что г
QBasic для windows 8 Pro x64. Нужен QBasic под вин8. Не могу найти. Или он там вообще не возможен?
Какой процент всех трезначных чисел составляют числа, не являющиеся полными квадратами?
Как посчитать разность квадратов чисел при помощи VBA ??
Задача по информатике. Qbasic, как найти квадратные корни от 20 до 40. Qbasic, как найти квадратные корни от 20 до 40
помогите решить в QBasic, или перевести с Pascal в QBasic
Посчитать среднее арифметическое 10 чисел QBasic
найти количество всех двузначных чисел сумма квадратов цифр которых кратна 13