Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Alisa010303
06.05.2023 16:09 •
Информатика
Вводятся два числа а и в (в> а). вывести на экран числа, которые делятся на 3, но не делятся на 5 и их количество. (паскаль)
Показать ответ
Ответ:
Ясомолётик
07.08.2020 10:00
Var
a, b, i, count: integer;
begin
readln(a);
readln(b);
count:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
inc(count);
writeln(i);
end;
writeln('Количество = ', count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
liza13100
31.07.2021 10:07
с ДЗ. Pascal ABC Задание на фото....
cozycoat1
18.11.2020 04:49
На паскале,написать программу y=(x^6-x^4) / (x^-5+x^-3), при х=3 используя функцию с параметрами....
vikadmitrieva5
01.01.2023 02:33
Дано неотрицательное число n- количество элементов массива (n =100) заполнить массив первыми натуральными числами больше 300, делящимися нацело на 13 или на 17 и с суммой...
nastyakelman25
11.08.2022 05:17
Текст составлен с использованием алфавита мощностью 64 символа и содержит 500 символов. какой информационный объем текста?...
Рожок400000
30.03.2022 20:45
Сазбуки морзе закадировать слово отлично...
анна1796
19.02.2023 02:05
Предприниматель закупил свеклу.в первый день было продано 120кг,что составило 20% всей партии,во второй день 60% остатка.определите сколько свеклы продано за третий...
Александра102854321
19.02.2023 02:05
Запишите число 0,000034 в стандартном виде...
leksutin1
19.02.2023 02:05
Übung 23: setzen sie die artikel und endungen ein! 1. die leute glauben (pl) nicht. 2. wir danken ( 3. der bauer baut haus. 4. die wirtin begegnet . 5. wir gratulieren...
Алька3105
19.02.2023 02:05
Составь с приставок однокоренные слова.запиши.обозначь приставки. перед корнем есть приставка.слитно пишется она.и при приставки образуются слова. бежать прыгнуть пере...
89051682007
19.02.2023 02:05
Решите уравнение (0,017-4\1000*х)*1000=1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, i, count: integer;
begin
readln(a);
readln(b);
count:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
inc(count);
writeln(i);
end;
writeln('Количество = ', count);
end.