Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
anetta3568
09.07.2020 15:05 •
Информатика
Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !
Показать ответ
Ответ:
deniskarpov02
20.08.2020 14:18
// PascalABC.NET 3.2, сборка 1387 от 17.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer;
Write('Введите границы диапазона: '); Read(a,b);
if b<a then Swap(a,b);
Range(a,b).Where(x->x mod 7=0).Println
end.
Пример
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63
0,0
(0 оценок)
Ответ:
Лази21
20.08.2020 14:18
var a,b,i:integer;
begin
write('a, b: ');
readln(a,b);
for i:=a to b do
if i mod 7 = 0 then write(i,' ');
writeln;
end.
Пример:
a, b: 5 50
7 14 21 28 35 42 49
0,0
(0 оценок)
Популярные вопросы: Информатика
juliakolesnik04
15.05.2021 23:11
7. К таблице «Оплата электроэнергии», полученной при выполнении зада- ния 6 из предыдущего параграфа, добавьте расчет всей выплаченной загод суммы денег и сумм, выплаченных за...
Kiraпомошник
13.01.2021 22:31
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов больших числа К введенного с клавиатуры....
dhsjkhd
13.12.2021 04:01
Помагите пожулуста очень нужнда завтра...
isokova01
25.06.2020 16:45
1. Составить блок-схему алгоритма решения задачи: Клиент внес в банк R рублей. Каждыймесяц эта сумма увеличивается на Wпроцентов. Сколько будет у клиента денег через два месяца,...
Nemuverus
11.06.2022 00:55
1. Имеется неограниченно много бусин пяти разных цветов. Сколько разных цепочек из трёх бусин можно из них составить? 2. Сколько разных пятибуквенных слов можно составить в двоичном...
Танюша2705
22.08.2022 00:32
Работаем на paython, 9 класс...
lukynova20
10.11.2021 15:26
Число в шестнадцатиразрядном представлении имеет вид...?...
businkakiss
10.12.2022 08:53
Переведи указанные числа из десятичной в восьмеричную систему счисления 43- 77- 101- в течении часа дам все звезды и !...
Dany200808
02.08.2021 13:56
Заполнить одномерный массив случайными целыми числами. Найти фрагмент массива максимальной длины, элементы которого монотонно возрастают или убывают. Вывести фрагмент на консоль...
dimonshegolev
23.03.2021 14:53
найти произведение отрицательных чисел на промежутке [-10; 300]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer;
Write('Введите границы диапазона: '); Read(a,b);
if b<a then Swap(a,b);
Range(a,b).Where(x->x mod 7=0).Println
end.
Пример
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63
begin
write('a, b: ');
readln(a,b);
for i:=a to b do
if i mod 7 = 0 then write(i,' ');
writeln;
end.
Пример:
a, b: 5 50
7 14 21 28 35 42 49