Для решения данной задачи на языке QBasic, вам потребуется написать код, который будет перебирать все двузначные числа и проверять их на соответствие условию задачи. Вот пример кода:
CLS PRINT «Двузначные числа, удовлетворяющие условию:» FOR num = 10 TO 99 tens = num 10 ones = num MOD 10 sum_digits = tens + ones result = sum_digits + sum_digits * sum_digits IF result = num THEN PRINT num END IF NEXT num END
Этот код выполняет следующие действия:
- Очищает экран.
- Выводит на экран сообщение «Двузначные числа, удовлетворяющие условию:»
- Перебирает все числа от 10 до 99.
- Вычисляет сумму цифр числа.
- Считает результат по формуле: результат = сумма цифр + квадрат суммы цифр.
- Проверяет, равен ли результат исходному числу, и если да, выводит число на экран.
- Завершает программу после проверки всех чисел.
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Дано натуральное число:-найти сумму цифр этого числа;-верно ли, что число начинается и заканчивается одной и той же…
- Определить, является ли число совершенным (число называется совершенным, если оно равно сумме всех его делителей,…
- Найти все числа Армстронга состоящие из двух, трех и четырех цифр — Basic(Бейсик)
- Для заданного натурального числа N, не превосходящего 30000, требуется найти ближайшее к нему двоякое число (если таких…
- Для заданного натурального числа N, не превосходящего 30000, требуется найти ближайшее к нему двоякое число (если таких…
- Для каждого натурального числа в промежутке от m до n вывести все делители, кроме единицы и самого числа. m и n вводятся…
Источник: pgusapriem.ru
ЕГЭ информатика задача №25 часть 2
Паскаль
1. Найти все двухзначные числа, такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится это число.
2. Найти четырехзначное число, которое при делении на 133 дает в остатке 125, а при делении на 134 остаток 111.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Паскаль 1. Найти все двухзначные числа, такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится это число. 2. Найти . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Вычитание двузначных чисел столбиком. Учим ребенка вычитать.
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Паскаль 1. Найти все двухзначные числа, такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится это число. 2. Найти четырехзначное число, которое при делении на 133 дает в остатке 125, а при делении на 134 остаток 111.
Источник: urokam.net
Работа с цифрами c++ [закрыт]
Закрыт. Этот вопрос не по теме. Ответы на него в данный момент не принимаются.
Вопросы с просьбами помочь с отладкой («почему этот код не работает?») должны включать желаемое поведение, конкретную проблему или ошибку и минимальный код для её воспроизведения прямо в вопросе. Вопросы без явного описания проблемы бесполезны для остальных посетителей. См. Как создать минимальный, самодостаточный и воспроизводимый пример.
Закрыт 2 года назад .
Помогите пожалуйста новичку. Нужно написать программу на C++, которая находит все двузначные числа, такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится само число. Я пробовал написать, но у меня ничего не получилось.
#include using namespace std; #include int main() < int j,n,summ; cin >> j,n; for(n=10; n if (j==n) cout
Источник: ru.stackoverflow.com