Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
manetsevap010xz
15.07.2022 12:50 •
Информатика
Дано натуральное число n. найти тройки x, y, z таких натуральных чисел, что n=x2+y2+z2 получить результат при n=166
Показать ответ
Ответ:
alex27045
01.10.2020 22:39
Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ilyavazhnov1995
19.08.2022 11:06
LU и LDU разложения матриц и их применения, при вычислении детерминантов и решении систем линейных уравнений (Найти LU и LDU разложения матриц в пакете программы С++...
Nastya1111113466
20.03.2022 11:20
Имеются 5 карточек на которых записана одна из букв: а б е ж и . надо составить последовательность из к карточек соблюдая правила: 1) любая последовательность начинается...
StarBoy12ewq
21.10.2020 11:07
Требуется вычислить факториал целого числа n. факториал обозначают как n! и вычисляют по формуле: n! = 1 * 2 * 3 * … * (n-1) * n, причем 0! = 1. так же допустимо рекуррентное...
KrasnovaLu82
07.05.2022 18:09
при написании программ необходимо использовать рекурсию. условие выхода необходимо определить исходя из аналитического выражения. для вычисления суммы ряда нужно вывести...
dhdndbrb
13.06.2020 06:43
Запишите число -84 в 8-разрядном формате со знаком...
Himop
21.12.2021 22:20
расположите числа в порядке возрастания.1- 12₈2- c₁₆3- 1101₂4- 11₁₀комментарий: переведите все числа в 10-ю сс и уже после этого проведите сравнение...
sveta6729
27.09.2022 07:03
Написать логическое выражение и найти значенневыражения при х=0, y=0, z=1....
drsoffia
17.12.2020 13:29
Отделение корней турбо паскаль сделать (x-4)^2*log^0.5*(x-3)=-1...
филик2
29.08.2021 02:42
По рисунку ответить на вопрсы: сколько раз всего спрайт сменит костюм? сколько раз спрайт скажет слово ! ? ...
urasaya
23.03.2020 06:08
Сколько будет занимать в памяти(кбайт) рисунок, состоящий из 256×256 пикселей и количестве цветов в палитре 256 через дано и решение!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
end.