Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
glokol
09.06.2023 06:42 •
Информатика
Дано натуральное число n. найти тройки x, y, z таких натуральных чисел, что n=x2+y2+z2 получить результат при n=166
Показать ответ
Ответ:
dimasikmll
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 оценок)
Популярные вопросы: Информатика
Чел1046738
27.03.2020 09:00
23. Объясни, почему при попытках поиска внеземных цивилизаций использова-лась двоичная система...
DirolFix
13.11.2021 00:43
Это решит мою угадай форму с инструкции turtle.shape() можно задавать вид черепашки. для этого в круглых скобках пишут текстовую строку, например, turtle.shape( classic )....
nastyaignatova3
08.02.2021 00:55
Ано исходное состояние таблицы. После выполнения команды КОПИРОВАТЬ А5: В5 в А4 : В1 значения клеток А6 и В6 будут равны соответственно: 1. будет выдано сообщение об ошибке...
Yachit68
28.10.2021 07:00
ЗАДАЧИ ПО ФИЗИКЕ; ВСЁ НА ФОТА...
maxchequers
10.12.2021 17:23
Сәлем бәріне маған комек керек қазақ тилине беремин қожа ғана өлең жазу...
djam111
29.05.2023 18:11
Выберите предложение, осложнённое однородными определениями. Знаки препинания не расставлены.Из окон низеньких белых домов кое-где струился туманными прямыми полосами свет.Маленькие...
Dan1L1an
24.03.2022 07:48
Сколько моль водорода сгорело, если получено 5 моль воды?...
PASHA993r
28.05.2022 17:48
На какой во отвечает слово потом?...
3754456988561
21.11.2020 09:36
Венна диаграмма. 2 класс . Пресмыкающиеся , млекопитающие...
alyabub
09.03.2023 06:24
Сколько существует двузначных чисел, которые равны сумме цифр этого числа, сложенной с их произведением?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.