Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
egormatkarimov
23.02.2023 10:54 •
Информатика
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.pascal abc
Показать ответ
Ответ:
сынок16
12.07.2020 16:16
Чувак, я не знаю паскаля, в коде могут быть ошибки синтакисиса. По сути так:
begin
var count : integer;
for var i := 10 to 99 do
if i mod (i mod 10 + i div 10) < 1 then count := count + 1;
end;
Это PascalABC.Net, вроде я не ошибся.
0,0
(0 оценок)
Популярные вопросы: Информатика
79954236
06.02.2022 12:05
Подсчитайте количество целых чисел в диапазоне от 15/16 до 30/16 включительно. Это шестнадцатеричная...
skshhd
03.06.2023 21:49
ДЛЯ ЧЕГО НУЖНО ЗНАТЬ ПОНЯТИЕ АЛГОРИТМ...
viktorijavorob
09.05.2022 08:04
Написать прогу. операторы цикла. c#...
Настя20050910
20.04.2022 11:24
Составить сочинение на тему я коллективист и патриот...
firsovata2017tatyana
20.04.2022 11:24
От верёвки длиной 15 м,отрезали кусок,после чегооставшаяся часть составила 40 % длины всей верёвки.какова длина отрезанного куска?...
Варежкамяу
20.04.2022 11:24
Выполнить морфологический разбор слов: спешит и высунуть , для , предложения: высунуть листик иль синий цветочек каждый спешит молодой корешок, раньше, чем ива из ласковых...
KristyLis
20.04.2022 11:24
Беркут оказался в западне. он сидел неподвижно, все так же с раскрытыми крыльями. я даже испугался. но вот птица вяло шевельнулась –жива. я подкатил к дереву камень встал...
адэляком
20.04.2022 11:24
Какая начальная форма у глагола сделали...
Bananchik26
09.12.2022 13:39
Переведите текст mila story can you help 9 класс...
саша5479
09.12.2022 13:39
Решите неравенство 5(х-3)-7 3х-2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var count : integer;
for var i := 10 to 99 do
if i mod (i mod 10 + i div 10) < 1 then count := count + 1;
end;
Это PascalABC.Net, вроде я не ошибся.