tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводятся два
Склавиатуры вводятся два натуральных числа а и в (а
11Аракся11
2 06.08.2019 00:10
0
Ответы
DiaGirlNya
04.10.2020 00:07
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Formica2017
21.04.2019 15:33
1. заполнить массив из 10 элементов случайными числами в интервале [-30,30] и подсчитать сумму всех отрицательных элементов. 2: заполнить массив из 10 элементов случайными...
fast0l0n
21.04.2019 15:33
Нарисуйте в паскале рисунок и напишите программу...
elmaz5
09.09.2020 11:15
Хабарлама қуаты 8 символға тең алфавит көмегімен жазылған. Хабарламаның ақпараттық салмағы 120 битті құрайды. Осы хабарламадағы символдардың санын анықта...
irina83soft071
10.09.2020 11:49
Переведите числа в двоичную и десятичную системы:A) 20010= X2 Б) 110012= X10...
danilfkr
10.09.2020 11:54
10-⁶ м тең ұзындық өлшем бірлігінің атауы...
аленка1опр
10.09.2020 11:13
Расставьте единица измерения информации по возрастанию 3 Гбайт1 байт3010 Мбайт7 бит3 Гбайт1 байт3010 Мбайт7 бит...
grekorim1998a
26.03.2021 14:07
Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих соседей). Решение на Питоне...
найксон
07.04.2020 13:51
1. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен записанный на разных языках программирования фрагмент одной и той же программы,...
Danila29012006
25.09.2019 00:50
Примеры пищевых связей различных живых существ...
Ekaterina2019
25.09.2019 00:50
Ask 5 questions to the sentence. the next train leaves in the morning at 2.15...
Популярные вопросы
Прочитайте стихотворение м.ю. лермонтова парус белеет парус одинокой...
1
1) назовите основные факторы, влияющие на размещение предприятий машиностроения....
2
Расставьте знакт препинания. составьте схему предложения. мне казалось...
1
Обозначает падеж выделенных существительных.пользуйтесь вопросами...
2
Мне)) напишите про подорожник в крации но что б было самое главное....
1
Ижелательно в калориметр налили 0.5 л воды при температуре 20 градусов...
1
Сколько см квадратных в 500 др квадратных...
3
Предмет искусство 8 класс 1.расскажите о семье муз аполлона. какие...
2
Найдите среднее арифметическое чисел : 5,24 ; 6,97 ; 8,56 ; 7,32 ;...
3
Какие цели преследовал юстиниан, отправляя войска в италию, северную...
3
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.