Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
vazovskiy2013
04.11.2022 22:41 •
Информатика
(pascal) вывести все нечётные числа кратные пяти в диапазоне от 10 до 100. обязательно использовать repeat и until.
Ответ:
NEASA
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 оценок)
Популярные вопросы: Информатика
МОЗГ1987
22.09.2022 01:12
Перевести число 101011100 из двоичной системы счисления в десятичную....
saltanatsultan
22.09.2022 01:12
Почему компьютерной пиратство наносит ущерб обществу? обоснуйте если не...
dianamakhmutova1
22.09.2022 01:12
Решите , надоо) вывести на экран все степени числа а начиная от 1 до б ,а и б вводятся клавиатурой . буду...
prohorowanyura
24.02.2020 01:13
Скажите если наклеить защитное стекло на уже треснувший экран трещина будет расползаться?...
yakovleva03ow836v
23.04.2020 12:20
Решить на тему одномерные массивы на языке pascal. сама : найдите количество элементов массива,меньше квадрата своего номера....
ТашаФедоренко
01.12.2020 11:02
1. дайте определение субд. 2. укажите основные принципы, учитывающиеся при создании базы данных. поясните, в чем состоит их смысл. 3. что называют полем и записью в microsoft access?...
vidadisaf
19.02.2021 21:29
() заполнить массив из 12 элементов случайными числами от -20 до 10. вынести индексы отрицательных элементов....
akonbkaru
16.04.2022 06:39
Сколько гигабайтов содержится в 63,5 терабайтах?...
yaxyeu
22.03.2020 22:17
Ввести массив м из девяти элементов .вычислить разность между минимальным и максимальным элементами. использовать подпрограммы. язык с++...
mansurislamov
09.02.2023 07:41
Ввести с клавиатуры длину, ширину и высоту в метрах. определить сколько банок краски понадобится, чтобы покрасить вагон. учесть, что 10% всей площади занимают окна, а одной банки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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