Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Hitecho07
01.04.2023 21:07 •
Информатика
Напишите программу поиска всех двузначных чисел, в которых есть цифра n или само число делится на n.
Показать ответ
Ответ:
Zhanar161
26.06.2020 10:16
Uses crt;
var a,n:integer;
begin
write('n:'); readln(n);
if n>=10 then writeln('error')
else
for a:=10 to 99 do
if (a mod n=0) or (a div 10=n) or (a mod 10=n) then writeln(a);
end.
0,0
(0 оценок)
Ответ:
K12311
26.06.2020 10:16
Dim i As Integer
Dim msg As String
Dim n As Integer
n = CInt(InputBox("Введите n"))
For i = 10 To 99
If CStr(i).IndexOf(n) > -1 Or i Mod n = 0 Then
msg = msg & i & vbCrLf
End If
Next
MsgBox(msg)
0,0
(0 оценок)
Популярные вопросы: Информатика
79134523121
04.02.2020 21:03
Пусть с - одномерный массив, состоящий из n элементов, а g квадратная матрица nxn. в необходимо вычислить квадратную матрицу g и вывести значения её элементов на рабочий...
Hackerywka
01.01.2020 03:06
Предложите имена известных вам программ, открывающих файлы со следующими расширениями: txt, doc, bmp, pdf, zip....
genyaryabinina
08.12.2022 02:49
Паскаль. 1. последовательно ввести n чисел. найти среднее арифметическое этих чисел.2. последовательно ввести n целых чисел. найти минимальное из положительных чисел....
Шаригул
27.03.2022 03:52
Баба-яга задумала перед сном почитать магическую книгу. поскольку баба-яга устала за день, то она хочет прочитать только одну страницу. для того, чтобы понять, какую...
asanovatoma1
17.05.2021 08:25
Кто шарит в информатике не брать информацию не с каких ) если ответ не списан, и все грамотно написано) : 0 дайте полные развернутые ответы на вопросы. 1. какие системы...
mamaevseenko
19.06.2022 10:15
Втаблице привидены запросы и количество страниц, которые нашёл поисковой сервер по этим запросам в некотором сегменте интернета: запрос : количество: март& май....
Tina19977
26.02.2020 15:37
нужно минимизировать скнф и по минимизированному выражению составить схему 50...
maloypipos
19.04.2020 14:44
Создайте модель для нахождения значения функции у=2*х- 5*(а+в), причем а=7*в, в=м+...
Aliy251
10.11.2020 04:47
Логическое выражение (x1 ∧ x2) ∨ (¬x1 ∧ ¬x2)...
серья192837465
26.04.2022 10:33
Задана программа: program massiv; var s, k : integer; a: array [1..8] of integer; begin for k : =1 to 8 do readln (a[k]); s : = 0; for k : =1 to 8 do s : = s + a[k];...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,n:integer;
begin
write('n:'); readln(n);
if n>=10 then writeln('error')
else
for a:=10 to 99 do
if (a mod n=0) or (a div 10=n) or (a mod 10=n) then writeln(a);
end.
Dim msg As String
Dim n As Integer
n = CInt(InputBox("Введите n"))
For i = 10 To 99
If CStr(i).IndexOf(n) > -1 Or i Mod n = 0 Then
msg = msg & i & vbCrLf
End If
Next
MsgBox(msg)