Войти
Регистрация
Спроси ai-bota
знание333333
31.03.2023 18:40
Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
даха144
27.02.2023 17:24
Рассчитайте информационный объем предложения (в битах): «Казах стан-многонациональное государство». Каждый символ кодируется двумя байтами в коде Unicode....
Imao
02.01.2020 02:15
Расшифруйте с азбуки Морзе --..--. --..-...-....
vikaisaenko1511
18.07.2021 05:36
Какой оператор сравнения используется для создания условий поиска записи для текстовых данных...
bluegirl
13.05.2022 19:15
самостоятельно разработайте программу позволяющую определить все ли элементы массива являются двузначными числами....
nik123red
03.05.2021 13:20
. Қабырғалары 30 см және 40 см, бүйір қабырғасы – 50 см болатын тікбұрышты параллелепипедті салудың дұрыс тізбегін көрсетіңіз. а. Маратқа параллелепипед құруға көмектесіңіз. b. Параллелепипед...
TookteR
26.03.2021 21:47
решить, вот вариант - https://v-olymp.ru/olmp_it/preparing_olympics/2015-16%20учебный%20год/11%20класс%20вариант%202.pdf...
JlunaJlove
14.09.2020 19:55
Этим. паскаль. вывести на экран квадрат средней цифры пятизначного числа....
Бронвин
14.09.2020 19:55
Вкорзинке лежат 8 черных шаров и 24 белых сколько информации несет сообщение в том, что достали черный шар...
Христина854
01.04.2022 16:28
Для групповых операций с файлами используются маски имён файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также...
baha2001zzz
01.04.2022 16:28
Решить дискета имеет объем 360 кбайт. сколько дорожек будет на диске . если каждая их них содержит 9 секторов . в каждом секторе размещается по 1024 символа 32 символьного алфавита...
Ответ:
Swaggygirl
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 оценок)
Ответ:
polinavak05
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота