Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
anay3
23.11.2021 12:30 •
Информатика
Вычислите количество чисел в промежутке от а до в (которые вводятся с клавиатуры), которые кратны 7 или оканчиваются на 9. в паскале
Показать ответ
Ответ:
Егорка8374
09.08.2020 19:31
Program n1;
var a,b,k,i: integer;
begin
readln(a,b);
k:=0;
for i:=a to b do if (i mod 7=0) or (i mod 10=9) then k:=k+1;
write(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
юлия1384
06.07.2021 19:41
У чому подібність і відмінність фізичної та імітаційної комп’ютерних моделей?...
glupiychelovek
09.10.2021 06:45
В следующем высказывании выделите простые высказывания, обозначив каждое из них буквой; запишите с букв и логических операций данное высказывание: На уроке физики восьмиклассники учили...
vanyushkachushka79
10.04.2023 11:15
Local jump = red function Touch(hit) if script.Parent.Locked == false and script.Parent.Parent:findFirstChild(jump).Locked == false then script.Parent.Locked = true script.Parent.Parent:findFirstChild(jump).Locked...
Ромашка111113
03.11.2020 18:42
Даны х у z напишите программу для вычисления значения выражений а= x+y-z / x²+ 2...
GrechukhinGleb
25.07.2021 14:34
Файл размером 30 кбайт передается через соединение за 2 минуты. определить время, за которое можно передать этот же файл через соединение скорость которого на 2048 бит в секунду больше...
ЕнотикPRo
26.03.2021 06:07
Вариант No1 No 1Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённостькоторых (в километрах) приведена в таблице:ABCDEFБ5B5с521D13E1111Определите длину кратчайшего...
Mimi1602
04.11.2021 16:15
Напишите программу паскаль, определяющую сколько существует трёхзначных чисел, в которых есть цифра ноль...
Анна14600675
07.08.2021 01:06
Надо ! составить схему и программу...
Ученик28889
25.05.2022 21:50
Какое значение получит переменная y после выполнения алгоритма? x: =3y: =2∗xy: =y+6y: =y∗xy: =y+7y: =y∗xy: =y+8...
tttttrrr
26.01.2021 22:36
Вычислите n элементов заданной последовательностью s= 1+3+7+15+31+...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,k,i: integer;
begin
readln(a,b);
k:=0;
for i:=a to b do if (i mod 7=0) or (i mod 10=9) then k:=k+1;
write(k);
end.