Помогите написать программу по программированию

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

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000.

Программа должна вывести одно число: количество чисел оканчивающихся на 5 или кратно 3.

Question

Василия

11 октября, 09:03

+5

Ответы (1)

Знаете ответ?

Евстахий · Answer 1

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.