В возрастающем порядке вывести все целые числа из диапазона от 1 до 10000

@maxfloid · Регистрация: 28.11.2012

Студворк — интернет-сервис помощи студентам

Создать процедуру, которая в возрастающем порядке выводит все целые числа из диапазона от 1 до 10000, которые можно представить в виде n^2 + m^2, при этом n,m>=0.

@pryda · 29.11.2012, 05:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n,m:integer;
 
procedure ololo(n,m:integer);
var i:integer;
begin
for i:=1 to 10000 do
if sqr(n)+sqr(m)=i then write(i:6);
end;
 
begin
readln(n,m);
ololo(n,m);
writeln;
end.

@maxfloid · 02.12.2012, 20:08 **[ТС]**

К сожалению она не работает... Нужно чтобы все числа которые могут быть представлены в этом виде выводились на экран.

@pryda · 03.12.2012, 02:01

в чём ошибка?

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@maxfloid 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 4

	В возрастающем порядке вывести все целые числа из диапазона от 1 до 10000 28.11.2012, 23:03. Показов 1785. Ответов 3 Метки нет (Все метки) Создать процедуру, которая в возрастающем порядке выводит все целые числа из диапазона от 1 до 10000, которые можно представить в виде n^2 + m^2, при этом n,m>=0. 0

@maxfloid 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 4
	02.12.2012, 20:08 [ТС]
	К сожалению она не работает... Нужно чтобы все числа которые могут быть представлены в этом виде выводились на экран. 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	03.12.2012, 02:01
	в чём ошибка? 0

В возрастающем порядке вывести все целые числа из диапазона от 1 до 10000

Решение