Написать программу по программированию напишите программу которая в последовательности целых чисел определяет количество чисел оканчивающихся на 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.

1.  вымыть, очистить и нарезать тонкой соломкой свеклу, морковь, картофель и лук. капусту тонко нашинковать, помидоры ошпарить кипятком, снять кожуру и нарезать кубиками. чеснок очистить и раздавить.2.   в кастрюле вскипятить воду, посолить, положить картофель и капусту и варить  на небольшом огне. в сковороде разогреть растительное масло, обжарить лук и морковь около 5 минут, затем добавить половину свеклы, уксус и сахар, перемешать и тушить 10 минут. 3.  оставшуюся свеклу сложить в миску, залить кипятком, добавить 1 ч. л. уксуса и дать настояться – получившийся свекольный сок может понадобится в конце приготовления для того, чтобы сделать цвет борща более насыщенным. 4.  в сковороду с овощами добавить помидоры, посолить и поперчить по вкусу, накрыть крышкой и тушить 20 минут. 5.  в кастрюлю с картофелем и капустой добавить тушеные овощи и лавровый лист. довести до кипения, снять пену, потом добавить в борщ чеснок. накрыть  крышкой и сразу снять с огня, после чего дать настояться 10 мин. 6.  добавить в суп процеженный свекольный сок и перемешать.