Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kofer
24.01.2020 03:32 •
Информатика
Вывести числа от 1 до n, которые не делятся на 4. pascal.
Ответ:
AlexIQ161
10.09.2020 11:24
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
range(1,ReadInteger('n=')).Where(x->x mod 4<>0).Println;
end.
0,0
(0 оценок)
Ответ:
mirann2hsjb
10.09.2020 11:24
// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
1.To(ReadInteger('n=')).Where(t->t mod 4<>0).Println
end.
Пример
n= 21
1 2 3 5 6 7 9 10 11 13 14 15 17 18 19 21
0,0
(0 оценок)
Популярные вопросы: Информатика
kotяplay12
22.11.2022 04:21
Задача 1 Черно-белое (без градаций серого) растровое графическое изображение имеет размер 64х128 точек. Какой объем памяти займет это изображение? ответ дайте в Кбайт...
evgendm555
24.12.2022 21:55
Составьте программу которая иметирет движение голубого шарика по диогонали...
yuldumenko
10.07.2021 13:40
(паскаль) в данной действительной квадратной матрице порядка n найти наибольший по модулю элменент. получить квадратную матрицу порядка n-1 путем выбрасывание из исхоодной...
EzNoobXex
28.05.2021 00:43
Построить из элементов двумерного массива одномерный массив, элементом которого являетются четные элементы двумерного массива...
Ниа15082006
12.11.2022 18:40
3. Ячейки A1:A5 содержат значения 12, 4, 45, 12 и 3. Чему будет равно значении следующих функцийа) =МИН(А1:А5) = b) =СЗНАЧ(A1:А5) =...
pmv2002rusp0bof2
28.11.2020 01:28
Составить блок-схему(алгоритм) из 4-х чисел по убыванию....
Настюшкаvovk
03.04.2023 04:47
Составить программу, которая по введённому числу определяет, число больше 2 или нет и выводит соответствующее сообщение (Например, число больше 2) (a 2)....
Мадмуазель1
04.01.2022 15:07
Чередующиеся гласные в корне: * А) Доб…рается, зас…дание, сп…шить.В) Упр…жнение, сост…яние, изм…нение.С) Уб..рать, заг…рится, выт…рать.D) Сл…яние, уд…ржать, см…риться.Е) Ук…зание,...
palienkoana
06.08.2020 07:56
Обчислити вирази обираючи зручный порядок обчислення а)-5,1×(-4)×0,25×(-3) б)-12×4/7+4/7×(-9)...
emilinloveTV
30.03.2022 12:13
Один з гострих кутів прямокутного трикутника на 34 менший від другого знайдіть ці кути пожайлуста...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Версия 3.3, сборка 1627
begin
range(1,ReadInteger('n=')).Where(x->x mod 4<>0).Println;
end.
// Внимание! Если программа не работает, обновите версию!
begin
1.To(ReadInteger('n=')).Where(t->t mod 4<>0).Println
end.
Пример
n= 21
1 2 3 5 6 7 9 10 11 13 14 15 17 18 19 21