Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ирмук
02.11.2020 21:13 •
Информатика
Среди натуральных трехзначных чисел вывести те, сумма квадратов цифр которых равно 14
Показать ответ
Ответ:
Ppapit
16.08.2020 01:36
Var
A:integer;
Begin
For A:= 100 to 999 do
if Sqr(A div 100)+Sqr((A div 10) mod 10)+Sqr(A mod 10) = 14 then
Write(A,' ')
End.
Результат работы программы:
123 132 213 231 312 321
0,0
(0 оценок)
Популярные вопросы: Информатика
Levix322
07.07.2020 19:56
Дан одномерный массив, состоящий из 10 чисел. определить, является ли массив по возрастанию или убыванию.pascal abc...
Aldiyar26
07.07.2020 19:56
Даны три положительных числа. если они могут быть длинами сторон треугольника, то определить его вид по сторонам, и по углам, иначе выдать соответствующее сообщение. решите разветляющим...
natalikohan12p0domq
27.02.2023 23:06
Ввести a и b и вывести квадраты и кубы чисел от a до b пример: введите границы интервала : 4 6 4 16 64 5 25 125 6 36 216...
www152
11.05.2022 03:52
изучение изображения кадров видеоролика Определи его вид видеоинфографика комбинирования бабули видео 3D анимация...
Suri31
20.12.2020 19:20
Pascal дано действительное число x. вычислить f(x), если...
TimLih990
26.04.2023 19:33
1. як двійкове число 11010 подається у десятковій системі числення2. запропоновано команди: а створити файл home.txtb створити каталог тоwnc створити каталог streetd відкрити...
alex2007serg
25.11.2020 16:27
Как определяется качество проведения технического обслуживания периферийных устройств и компьютерной оргтехники? по подробней нужно....
prkf
28.05.2021 18:41
Какое количество информации содержит слово «урок информатики» написанное буквами.ответ обоснуйте...
katyat1510
04.04.2021 06:47
Как называется процесс получения информации из интернета 12 букв...
Двоищник234
03.02.2022 13:10
1. як двійкове число 11010 подається у десятковій системі числення2. запропоновано команди: а створити файл home.txtb створити каталог тоwnc створити каталог streetd відкрити...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
Begin
For A:= 100 to 999 do
if Sqr(A div 100)+Sqr((A div 10) mod 10)+Sqr(A mod 10) = 14 then
Write(A,' ')
End.
Результат работы программы:
123 132 213 231 312 321