Простая реализация без массива uses crt; var a, b, c, d, k: Integer; begin readln(a, b, c, d); clrscr; if (a mod 5) = 0 then inc(k); if (b mod 5) = 0 then inc(k); if (c mod 5) = 0 then inc(k); if (d mod 5) = 0 then inc(k); writeln(k); end.
Будь-яка інформація передається повідомленнями. Обмін даними також здійснюється між тваринами і навіть рослинами. Так наприклад робочі бджоли, після того як зберуть багато нектару і пилок, до вулика вони повертаються, орієнтуючись за сонцем . Повернувшись, вони повідомляють іншим бджолам не тільки про відстань, на якій знаходиться корм, але передусім про його положення щодо сонця. За до спеціального кругового танцю бджоли розповідають, наприклад, що джерело нектару знаходиться на відстані до 100 м від вулика. Якщо ж джерело знаходиться далі, ніж за 100 м, то бджола виписує фігуру, подібну до літери „фіта" старого кириличного алфавіту. Рухаючися по середній паличці „фіти", бджола виляє черевцем. Як виявилось, рослини активно обмінюються інформацією між собою. Гриби використовуються рослинами як система раннього сповіщення про атаки шкідників. Коли одна рослина вражається тлею, вона повідомляє про це сусідів за системою "грибного зв'язку". Цікавою є поведінка у павуків. Якщо вони дуже швидко плетуть павутиння, то це віщуває про похолодання. Якщо ми побачили, що ластівки низько літають над землею слід знати, що вони повідомляють про негоду.
uses crt;
var a, b, c, d, k: Integer;
begin
readln(a, b, c, d);
clrscr;
if (a mod 5) = 0 then inc(k);
if (b mod 5) = 0 then inc(k);
if (c mod 5) = 0 then inc(k);
if (d mod 5) = 0 then inc(k);
writeln(k);
end.