Вывести количество пар целых чисел, удовлетворяющих условию - Turbo Pascal
Формулировка задачи:
Входные данные
В единственной строке входных данных находятся два целых числа n и m (1 ≤ n, m ≤ 1 000 000), разделённые пробелом.
Выходные данные
В единственной строке выведите ответ на задачу — количество пар целых чисел (x, y), таких что 1 ≤ x ≤ n, 1 ≤ y ≤ m, а (x + y) делится на 5.
Решение задачи: «Вывести количество пар целых чисел, удовлетворяющих условию»
textual
Листинг программы
y:=5-x mod 5; while y<=m do begin Inc(k); Inc(y,5); end;