Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
белка263
16.11.2021 13:22 •
Информатика
Среди первых 100 натуральных чисел вывести на экран такие , которые делятся на 3 и не делится на 2
Показать ответ
Ответ:
natalyazaprudsozxkk3
17.09.2020 01:17
Uses Crt;
const n = 100;
var i: integer;
begin
ClrScr;
for i:=1 to n do
if (i mod 2<>0) and (i mod 3 =0) then Write (i:4);
ReadLn;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mlgcuca
05.02.2020 07:38
Найти значение функции у=х2+1 для х=2,3,4,5; ,15....
pashapasha12345
05.02.2020 07:38
Как в паскале записать программу , решающее выражение 7х²-2(х-3)/х-3? проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 переменной...
vaper4
26.01.2021 16:42
Представление результатов проекта Сколько времени должна длиться презентация проекта?от 1 минуты до 10 минутот 1 минуты до 5 минутот 1 минуты до 2 минутот 1 минуты...
NaStYтуут
22.05.2020 10:06
от разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки Морзе...
Natusik04
07.03.2023 16:10
Число 1011100 в восьмиразрядном представлении имеет вид: 2011100 01011100 011100 100011100...
Йфячы
20.04.2021 03:54
Используя таблицу кодирования ASCII, закодируй следующие слова. RODINA, SHKOLA сделайте сдать через 20 минтут...
GeorgeFedorenko
18.11.2020 23:36
Напишите код в кумире чертежник Заранее благодарю!...
Шаша676
04.07.2022 17:08
Сообщение записано буквами 128-символьного алфавита, содержит 15символов. какой объём информации оно несёт...
диана2459
31.12.2021 16:51
Дан программный код. Варианты ответов «программа покажет ошибку» «false” “true” “0”...
yliana262626
12.02.2020 14:39
Найти 10 первых натуральных чисел, которые кратны 8, начиная от 1000...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 100;
var i: integer;
begin
ClrScr;
for i:=1 to n do
if (i mod 2<>0) and (i mod 3 =0) then Write (i:4);
ReadLn;
end.