Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
RIF12
20.06.2020 18:57 •
Информатика
По паскалю. символьный тип данных вывести на экран все цифры коды которых кратны 3
Ответ:
narigeevag71mariy
02.10.2020 19:47
Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
chobanu81p08xbb
13.02.2023 13:21
Рассмотрите электронную таблицу а)Запишите элементы действия применено и форматированиеАдреса ячеек:А3 А11 N3 N11форматирование: б)Запишите использование при построении и...
prohorowanyura
13.02.2023 16:37
В алгоритме, записанном ниже, используются переменные а и b. Символ «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — операции сложения, вычитания, умножения...
heeezing
04.10.2022 11:04
Определите информационный обьем следующего высказывания жан-жака руссо: тысячи путей ведут к заблуждению , к истине-только один....
qwetdfgdsa
20.11.2022 15:07
Теплый ветерок покачивал деревья...
ZHANSAYA20061
10.03.2020 06:05
Записать уравнения химических реакций, расставить коэффициенты, указать условия реакций. Назвать продукты реакции 1) Горение бутана; 2) Взаимодействие пропина с избытком брома,...
Olesya11111111111111
10.03.2020 06:05
найдите значения выражения...
настюшанастя1200
10.03.2020 06:05
Қазақ тілі кұмектесендер ...
bazilik
14.11.2021 08:43
Казахский язык 2 класса 110 страница 2 задание...
synnjhcx
23.01.2020 01:45
Под каждым рисунком подпишите экологическую проблему Казахстана ...
timofee1999
13.12.2021 11:29
Жанды табиғат патшалығын анықтаңыз. Бжб болып жатр ед....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.