
Вопрос задан 18.08.2023 в 02:38.
Предмет Информатика.
Спрашивает Бровин Даня.
Помогите написать программу по программированию Напишите программу которая в последовательности
целых чисел определяет количество чисел оканчивающихся на 5 или кратных 3.Программа получает на вход целое числа количество введённых чисел неизвестно последовательность заканчивается числом 0 (0-признак окончание ввода, не входит в последовательность) Количество чисел не превышает 1000.Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: количество чисел оканчивающихся на 5 или кратно 3.

Ответы на вопрос

Отвечает Вологдина Кристина.
Var A,k:integer;
Begin
k:=-1;
Repeat
Read(A);
if (Abs(A) mod 10 = 5)or(A mod 3 = 0) then k:=k+1;
Until A = 0;
Write(k)
End.
Begin
k:=-1;
Repeat
Read(A);
if (Abs(A) mod 10 = 5)or(A mod 3 = 0) then k:=k+1;
Until A = 0;
Write(k)
End.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на языке Python, которая выполняет указанную задачу:
pythoncount = 0
while True:
num = int(input("Введите число (для завершения введите 0): "))
if num == 0:
break
if num % 5 == 0 or num % 3 == 0:
count += 1
print("Количество чисел, оканчивающихся на 5 или кратных 3:", count)
Вы можете скопировать этот код и запустить его в среде разработки Python. Программа будет принимать ввод чисел от пользователя до тех пор, пока не будет введен 0. Затем она выведет количество чисел, оканчивающихся на 5 или кратных 3.


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 566

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

Информатика 23
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili