Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
vovkatop228
22.09.2019 08:40 •
Информатика
Дано натуральное число n. найти количество двузначных чисел, произведение цифр которых равно n
Показать ответ
Ответ:
0508761681
08.10.2020 09:06
Program n1;
var n,k,i: integer;
begin
k:=0;
readln(n);
for i:=10 to 99 do if (i mod 10)*(i div 10)=n then k:=k+1;
write(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
milerowskaya
21.08.2019 14:10
Во сколько раз увеличится число 10101010111111100101010102, если справа к нему приписать три нуля. ответ запишите в десятичной системе счисления...
чтлза
21.08.2019 14:10
Создайте программу в pascalabc.выводится выражение (если можно рандомное) ,если в вводишь правильный ответ + 1 было выражений должно быть 7-8...
айка397
20.11.2020 08:34
ОБЪЯСНИТЕ строчки в программе. Конкретно интересует эта строчка:A:=1700; R:=round (sqrt (A/pi)); circle (250,225,R); Program d;uses GraphABC;var karta, R, A: integer;beginSetWindowSize...
газмадошка4
09.08.2019 04:40
Что такое програмное обеспечение компьютера...
sagoankristina1
19.01.2022 11:49
Химия,сколько моль водорода может присоединить 1 моль алкена? 5?...
umeson
19.01.2022 11:47
Произведение Чехова Толстый и Тонкий ответы на вопросы 6, 7, 8...
illia2006
19.01.2022 11:47
Нам задали отметить горы на контурных картах.Горы:Уральские,Гемиалаи,Кордильеры ,Эверест,Эльбрус...
alisakiseleva2
19.01.2022 11:46
Буратино пошёл на базар и потратил все свои деньги, купив азбуку, колпачок и курточку. Пьеро спросил его, сколько он потратил денег. Буратино ответил, что всего потратил 63 золотых...
аяука10
19.01.2022 11:46
Өңірбеттегі морфологиялық талдау үлгісін басшылыққа ал. ШЫҒАРМАШЫЛЫҚ ҮЗІЛІС 5. Керісінше жұмбақ». Сөзжұмбаққа сұрақтар жаз. Ол үшін оқулықтың соңындағы түсіндірме сөздікті басшылыққа...
даниил740
19.01.2022 11:45
Starlight 7 test booklet test 3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
var n,k,i: integer;
begin
k:=0;
readln(n);
for i:=10 to 99 do if (i mod 10)*(i div 10)=n then k:=k+1;
write(k);
end.