Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
meruert2001n1
29.06.2022 22:53 •
Информатика
Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !
Ответ:
tolstykh2005ow2t1s
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 оценок)
Ответ:
Nastyaluan
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 оценок)
Популярные вопросы: Информатика
2018kat
08.07.2022 05:31
сколько будет 1 гигабайт в мбайтах и килабайтах...
кастусь
08.07.2022 05:31
Монитор позволяет получать на экране 16 777 216 цветов. какой объем памяти в байтах занимает 1 пиксель? (подсказка: 16 777 216 – это 224)....
алиная2
06.09.2020 16:12
Компьютер, который отвечает на запросы других компьютеров в сети - это?...
MarKizaCat666
22.01.2021 22:38
Расшифруйте слова, в которых буквы заменены на числа. для компьютерных игр часто используется 12 13 14 15 16 5 3 17 а теперь прочитай пословицу: 17 3 18 14 21 19 15...
Tan13Nanika
22.06.2020 12:30
1. назовите внутренние устройства компьютера. 2. что такое материнская плата?...
volontir00
09.01.2023 22:55
Фамилия и имя инженера, который изобрел кпк(карманный персональный компьютер)...
alina06alina
03.02.2020 22:51
Даны два прямоугольника, стороны которых параллельны или перпендикулярны осям координат. известны координаты левого нижнего угла каждого из них и длины их сторон. один...
KOTIK22811
03.02.2020 22:51
Заданы два множества. k- множество книг в школьной библиотеке, u- множество учеников в этой же библиотеке. какое из множеств является подмножеством другого?...
kerikan
25.10.2022 03:57
Open the brackets using present continuous. example: they (play) football. – they are playing football. 1. не (sit) at the desk. …………………………….… 2. she (eat) dinner....
lebswetl
25.11.2021 14:43
Рисунок размером 1024 х 512 пикселей сохранили без сжатия в файл размером 1,5 мб. какое количество информации используется для кодирования цвета пикселя?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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