Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
nastyamal0101
05.10.2021 11:48 •
Информатика
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.pascal abc
Ответ:
Машуничка12
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 оценок)
Популярные вопросы: Информатика
mutsienietse14
19.06.2022 00:06
Составить программу которая в массиве а 12 находит среднее арифметическое...
Anniikko
31.08.2022 12:16
Паучок находится в левом нижнем углу клетчатой доски размерами N × N N×N, где каждая клетка имеет размер 1 × 1 1×1. Так как во время движения паучок плетет паутину, он не может...
котикkatya
07.09.2022 21:21
Мəліметтердің типтері қандай?...
Гришаха
14.02.2021 00:42
Сообщение занимает 2 страницы и содержит 1/16 кбайта информации. на каждой станице записано 256 символов. какова мощность использованного алфавита?...
Annkot22
14.02.2021 00:42
Самый первый инструмент хранения информации...
nastya20174
14.02.2021 00:42
Как нарисовать в логомиры 3.0 радугу, , ))...
vitysablot
14.02.2021 00:42
Определить сумму квадратов первых n натуральных чисел (n вводится с клавиатуры)...
esbolat2000
11.07.2022 03:27
Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удалить из введенной строки все цифры, кратные 3. на паскале...
K1p2r4f4
06.02.2021 17:44
ИНФОРМАТИКА 7 КЛАСС Сколько файловых архивов объемом по 500 мбайт каждый можно записать на диск I; не стирая уже имеющуюся на нем информацию? В ответе укажите целое число....
Мухамед5Ли
03.02.2021 21:54
Спишите вставляя пропущенные буквы и раскрывая скобки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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, вроде я не ошибся.