Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
tatianani
04.04.2022 15:03 •
Информатика
Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !
Ответ:
Иван54654
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 оценок)
Ответ:
kir28082000
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 оценок)
Популярные вопросы: Информатика
Valya039782
13.08.2022 17:31
Выберите операцию, относящуюся к обработке информации * сбор урожая решение задачи по математике приготовление обеда чтение стихов...
lilaorazova2003
09.08.2022 21:26
Привет всем с информатикой с тестом: 1. К какому типу отнесем переменную A:=0.4 ? A. string B. char C. integer D. boolean E. real 2. Что будет выведено на экран...
k19745
25.08.2020 02:59
В ходе аттестации студентов факультета «Кредит» получены следующие результаты (см. рис.6). Предусмотреть заливку соответствующим цветом: если студент получил от...
Kir2905
04.08.2020 23:04
Фермер с собакой, котом, гусем и корзиной зерна возвращается подошел к реке. Ему надо переправиться на другой берег, однако в лодке вместе с ним может поместиться...
Raul020507
09.08.2021 23:08
Напишите программу на языке Паскаль, определяющую принадлежность введенного числа сотням.Напишите программу на языке Паскаль, определяющую принадлежность введенного...
шегп
19.06.2021 22:29
Найдите объём видеопамяти растрового изображения, занимающего весь экран монитора с разрешением 1024×768, и глубиной цвета данного изображения 32 бита. ответ должен...
katerinalavrenchuk
22.12.2021 17:17
Определите: 1) тип переменной а=56 2)команда вывода 3)команда ввода tloat int input print str...
ingamelnik99
21.12.2020 01:28
У исполнителя Калькулятор две команды, которым присвоены номера: 1. вычти 1; 2. умножь на 3. Первая из них уменьшает число на экране на 1, вторая — увеличивает...
Wishnewski
27.11.2020 21:56
A:=30; b:=6; a:=a/5*b if a b then c:=a-4*b else c:=a+4*b...
Oleg2156
05.04.2020 13:34
Что необходимо знать, чтобы найти нужную инфу в Интернете во по информатике...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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