tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Выведите на экран те числа из
Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !
21032008
2 23.08.2019 16:20
1
Ответы
Sniper2016
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
ПОКАЗАТЬ ОТВЕТЫ
portal1234
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
асаса3
05.07.2019 14:30
Разгадайте 1. соединяет устройство пк. 2. 3. устройство ввода информации в компьютер. 4. вид монитора 5. часть устройства из пункта 3 6. манипулятор, используемый для...
borronwolf
05.07.2019 14:30
Написать программу в паскаль которая вычислит произведение элементов массива с четными индексами (кто 15 )...
Anastas1ya1
18.10.2020 23:12
Придумайте свои кодирование русских букв...
Nastik6634
18.10.2020 23:12
Как решить а) 1110111010(2) и 11001101(2); б) 11101111011101(2) и 100000111101(2) Результат в десятичную систему счисления...
eligi2345
17.04.2021 22:32
Написать программу в Python....
LaputinaDaria
17.04.2021 22:34
Покажите выполнение процесса вычесления квадрата, куба, квадратного корня и кубичсекого корня числа в программе MS Excel....
nastunacka89
20.11.2019 22:00
Статья набранная на компьюторе содержит 128 страниц на каждой странице 32/строки в каждой строке 16 символов определите информационный объем статьи в кбайтах в кодировке...
nafani1
20.11.2019 21:56
Можно ли сравнить деятельность человека с работой компьютера...
ольга1682
24.04.2020 10:57
Установите что будет выведено на экран в результате выполнения следующей программы если n= 26 s:=0; repeat s:=s+n mod 10; n:=n div 10 until n=0; write(s);...
nastiaX352
24.04.2020 10:56
решить, со графической схемой...
Популярные вопросы
Перечисли известные тебе бренды в Казахстане (не менее 3х) ...
2
1. Найти координаты вершины параболы: а) у = - 17х2 + 7; б) у = -...
1
напишите соченение на тему Пепи в моей школе на уроке литературы...
3
Округлите 4,3651 и 0,007 до разряда сотых долей...
3
сделать тест а то я запутался...
2
Места крупных сражений войска Спартака. Заранее...
1
Сколько век в 800 лет 1000 лет 1300 лет и в 1900 лет...
2
Установіть відповідність між басейнами океанів та річками Євразії,...
1
Дані речовини CH4, C2H4 , C2H2 , C6H6 , C2H5OH , CH3COOH , C6H12O6...
3
Основной задачей аудиоадаптера( звуковой карты) являетсяа) преобразование...
2
// Внимание! Если программа не работает, обновите версию!
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