Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yanamalykh
19.02.2021 12:24 •
Информатика
Найти все двузначные числа, сумма квадратов цифр которых кратна m.
Показать ответ
Ответ:
kris0287
05.10.2020 07:42
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
begin
var m:=ReadInteger('M=');
for var i10:=1 to 9 do
for var i1:=0 to 9 do
if (i10*i10+i1*i1) mod m=0 then Write(i10,i1,' ');
Writeln(NewLine,'Работа завершена')
end.
Пример
M= 8
22 26 40 44 48 62 66 80 84 88
Работа завершена
0,0
(0 оценок)
Популярные вопросы: Информатика
saddddddd03
28.03.2023 23:52
все, 2 задачу с дано и решением...
мишка2283
06.04.2022 10:21
Pascal ABCПроцедуры и функцииРазработать программу, решающую пример. сумму кубов чисел a, b, c, если a=9.8 arctg^2 |e^2x^3-0.25|;b=lg^3(5.3x);c=cos^3(9|x-y|)/5*x*yИсходные...
Teddy1bear
23.05.2023 12:43
До ть будь ласка з завданням з інформатики...
glupiychelovek
08.12.2020 13:32
Рассчитать, какой объем памяти в Гбайтах необходим для одноминутного фильма на экране с разрешением 1280 на 720 пикселей и палитрой из 1024 цветов...
violetta1888
20.01.2021 21:23
Программа – это… a) инструкция для человека b) набор слов для выполнения c) набор команд (инструкций), которые управляют работой компьютера...
ffgdfsdf
29.03.2021 10:08
Решить задачи на паскале 1. С клавиатуры вводится пользователем n различных чисел. Подсчитать и вывести на экран количество отрицательных из них. 2. Вводится n...
sharshukovauly
12.03.2020 17:49
Напишите программу для решения примеров(Паскаль) а2+b2=c 35+45=80 (100-25)*2=150...
dimallow
26.07.2020 10:27
Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=11, то вывод на экран (ответ округли до сотых)...
elizawetailjin
17.03.2023 09:41
Определи основание системы счисления числа 1618....
district31
18.08.2020 14:04
Структуру сукупність даних, розміщених по рядках і стовпцях А) Таблиця Б) Малюнок В) Презентація Г) Проект...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var m:=ReadInteger('M=');
for var i10:=1 to 9 do
for var i1:=0 to 9 do
if (i10*i10+i1*i1) mod m=0 then Write(i10,i1,' ');
Writeln(NewLine,'Работа завершена')
end.
Пример
M= 8
22 26 40 44 48 62 66 80 84 88
Работа завершена