Вывести на экран все нечетные числа из диапазона от a до b, кратные 7(a< =b)
СГлазамиЦветаСчастья
2
30.10.2019 15:25
3
Другие вопросы по теме Информатика
mariyshak57
18.05.2021 16:35
Джина0
11.08.2019 06:10
UchenikH
11.08.2019 06:10
jskzva1
05.05.2020 10:23
295f9gh
30.05.2019 08:50
dikozzz
30.05.2019 08:50
Sapff1ra
30.05.2019 08:50
Alex200488005553535
20.04.2020 09:16
Lugazat
20.04.2020 09:16
Популярные вопросы
- Что такое: а) морфемика? б)словообразования? в)графика? г)морфология?...
2 - книги-наши верные друзья , написать рассуждение используя вводные слова,указывающие...
2 - Это с2 из егэ по , поэтому необходимо полное решение. заранее ! в правильно...
3 - :площадь садового участка- 6 соток. огурцами занято 3/8 ( дробь три...
2 - Продавец в коробку с катушками добавил 2 десятка катушек.до обеда он...
2 - Какой объем углекислого газа и какая масса оксида кальция образуется...
3 - Решить уравнение: (у-2)*3=(3у-4)*8...
1 - Опираясь на результаты лабораторной№9 поясни какое участие в образовании...
2 - Кот матроскин может надоить c литров молока за 2 ч. за какое время он...
1 - Впрямоугольном треугольнике авс, угол а=90 градусов, ав=20 см. высота...
3
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.