Войти
Регистрация
Спроси ai-bota
masky80984Женя
21.03.2020 06:29
Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
ооа10
05.05.2023 14:47
Нарисовать цикл уменьшающихся кружков в паскале! написал вот это, но из-за разности радиуса кружки либо далеко, либо друг на друге. как сделать так чтобы они просто касались друг...
TOMIRIBOT
21.06.2022 10:04
Для того чтобы написать реферат, дархан использовал дополнительные материалы из интернета. он скопировал нужный материал, но не вставил ссылки на сайты, которыми пользовался во...
koi4
04.04.2021 01:21
Составьте программу которая запрашивает стоимость одной пары перчаток, портфеля и портмоне , а также сумму денег , выделенную на покупку, а выводит сумму всей покупки и сдачу...
Alikhan666
15.01.2022 17:46
60 написать программу, в которой бы с клавиатуры пользователь вводил четыре числа (тип данных real). после этого программа выводила бы на экран номер наибольшего из них. нумерация...
ккк134
03.01.2023 21:25
Плыз номер 5 почему выходит 10 а не 11...
iMpreSS1ve1337
18.06.2021 05:12
Составьте программу которая запрашивает координаты точки на плоскости, а определяет, попадёт ли эта точка в круг, ограниченный единичной окружностью или на саму окружность...
Kimbra8
25.10.2022 17:31
Как графические изображения? ...
лол1628
12.01.2020 13:47
Плз с инфой что знаете 1)запиши верный ответ. 18div5 ответ: 2)выбери верный ответ. — алгоритмическая конструкция, отображающая естественный, последовательный порядок действий....
11nastyaaaaa11
13.10.2022 23:47
Почему менябтся фоны в ходе диолога? ...
Urtaol20
08.05.2022 22:33
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: запрос кол-во страниц (тыс.) фрегат & эстинец 500 фрегат...
Ответ:
santa34
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 оценок)
Ответ:
lemannv
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-бота