Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Igor681
12.04.2020 15:08 •
Информатика
По паскалю. символьный тип данных вывести на экран все цифры коды которых кратны 3
Ответ:
Киря2006555
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 оценок)
Популярные вопросы: Информатика
tori0077
15.05.2022 08:24
Куда девается или что происходит с ранее выразенным текстом, если вырезать что-то другое? 20 !...
09Катя99
15.06.2020 17:46
Запиши верный ответ. 28div5 исходное данное — трёхзначное число x. выполни для x=155 следующий алгоритм. a: =xdiv100 b: =xmod100 c: =xmod10 s: =a+b+c...
Angelochek167
14.05.2021 11:37
Как найти среднее арифметическое однозначных чисел, введённых с клавиатуры n раз?...
PolinaT11
14.05.2021 11:37
Самая маленькая единица измерения информации (3...
gulikaloznmno
11.08.2022 09:57
Сообщение записанное буквами из 64-символьного алфавита,содержит 25 символов.какой объём информации оно несёт...
MoNKinsN
06.09.2022 20:42
Составшимися вопросами по информатике. не могу найти ответы в интернете: 1.скорость доступа внутренней памяти а) быстрый доступ б) медленный доступ 2. скорость доступа внешней...
ainura8326
09.01.2020 00:34
При каком значении х будет истина: ((х 3) и не(x 4)) или (x 1) 1. 1 2. 2 3. 3 4. 4...
idkcjdosjn
16.01.2020 11:49
Подскажите как в паскале записать (-1) в степени i...
MaxWatt
16.01.2020 11:49
Был дан для исполнения следующий алгоритм: повтори 9 [вперед 50 направо 20 вправо 25]. какая фигура появится на экране?...
alex110403
16.01.2020 11:49
Программа которая выводит удвоенные значения элементов массива, размерностью n...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.