Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
adonnush
18.09.2020 14:16 •
Информатика
(pascal) вывести все нечётные числа кратные пяти в диапазоне от 10 до 100. обязательно использовать repeat и until.
Показать ответ
Ответ:
юлия1913
20.08.2020 23:00
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=10;
repeat
if n.IsOdd and (n mod 5=0) then Print(n);
n+=1
until n>100
end.
Результат
15 25 35 45 55 65 75 85 95
0,0
(0 оценок)
Популярные вопросы: Информатика
Anna66613
17.05.2021 04:32
D1. фанатам стратегий 3 (5 ) данная – логическое продолжение фанатам стратегий 2 . рекомендуем перед решением данной полностью решить фанатам стратегий 2 к добавлено...
vovabondar28
08.05.2021 00:05
Какую часть диска займет текст, содержащий 300 страниц,на каждой странице 75 строк по 56 символов ,если объем диска равен 1.8 мб...
mariabrin27
21.01.2023 19:10
Нужна в написании программы на python 3 в галактике «milky way» на планете «snowflake» есть n городов, некоторые из которых соединены дорогами. император галактики...
lycena
03.12.2022 17:38
Вмассив a[n] занесены натуральные числа. найти сумму тех элементов, которые кратны данному к.программу нужно написать для visual basic...
Nikita120102
16.12.2020 07:21
(pascal abc/turbo) запрограммируйте сортировку выбором в виде процедуры. поиск наименьшего числа сделайте ее внутренней функцией....
Древность5
14.02.2020 21:05
Файл размером 15 кбайт передается через некоторое соединение за 120 секунд.определите,за сколько секунд можно передать этот же файл через соединение,скорость которого...
Anastasiagoodnastia
20.09.2022 14:08
На компакт диске объёмом 600 мг, расмещён фотоальбом каждое фото в котором занимает 500 килобайт, сколько времени займет просмотр всех фотографий если на просмотр...
nat17akan
14.09.2022 11:49
Решите if8 для исполнителя робот...
1993nnnn
23.03.2021 00:42
Вопрос в закрепе! какие из чисел записаны некорректно...
katyvolkova81
17.04.2022 12:40
5. заполните схему «информационный обмен между устройствами компьютера». (ответ дать в виде а-клавиатура, б-сканер и т.д.)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=10;
repeat
if n.IsOdd and (n mod 5=0) then Print(n);
n+=1
until n>100
end.
Результат
15 25 35 45 55 65 75 85 95