Themrg
19.04.2021 16:18

Написать программу по программированию напишите программу которая в последовательности целых чисел определяет количество чисел оканчивающихся на 5 или кратных 3.программа получает на вход целое числа количество введённых чисел неизвестно последовательность заканчивается числом 0 (0-признак окончание ввода, не входит в последовательность) количество чисел не превышает 1000.введённые числа по модулю не превышают 30000. программа должна вывести одно число: количество чисел оканчивающихся на 5 или кратно 3.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Умныйгоблин
06.10.2020 04:00
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота