Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Апоппопп
07.04.2022 16:12 •
Информатика
Напишите программу поиска всех двузначных чисел, в которых есть цифра n или само число делится на n.
Показать ответ
Ответ:
Котеика1космос
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 оценок)
Ответ:
katrin05069
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 оценок)
Популярные вопросы: Информатика
dddashaaa1
18.05.2020 19:44
Для чего человеку понадобится компьютер?дам лучший ответкраткоспс...
LetovSup
29.09.2021 11:47
Где хранит данные исполнитель компьютера для решения задач...
gygfyye66363
06.07.2022 13:38
Мне не нужен ответ просто объясните исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b)...
Didi12EW
06.07.2022 13:38
Продолжить фразы: кнопка backspase программы калькулятор предназначена...
4213566
07.05.2021 06:17
Укажите значения переменных А, В, С, D, при которых логическое выражение ложно: (A C) (B C D)...
Lagoona030
18.02.2023 14:21
кто знает сделаю лучшим ответом и подписочка от меня...
Dashaass554
25.07.2020 17:18
1. Найти количество информации, которое занимает видеоролик, размером картинки 1024*768 пикселей, с частотой кадров 25 кадров/сек, длительностью 50 секунд, в цветовой гамме 200 цветов....
ballas47
25.02.2023 21:36
А)Каково имя массива? Б)Сколько в нем элементов?В)Элементы какого типа записаны в массивы?Г)Как введены данные в массивах?Д)Чему может быть равен наибольший элемент массива при таком...
tainyanonimusp08coh
13.04.2022 17:47
Сумма двух целых чисел равна 25.Известно,что их произведение принимает наибольшее значение.Найдите эти числа на программе python...
Yana18102001
18.12.2020 10:39
Начертитие в tkinter пайтон квадрат, внутри которого толстый крест...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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)