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