Решите задание: Var s, k: integer; begin readln (s); readln (k); if s div 3 = k then writeln ('ДА') else writeln ('НЕТ') end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (9, 3); (12, 8); (4, 1); (7, 3); (6, 2); (10, 2); (24, 7); (15, 4); (8,1).
5 раз
(9, 3); (12, 8); (4, 1); (7, 3); (6, 2); (10, 2); (24, 7); (15, 4); (8,1).
тут загвоздка в том, что div - деление нацело, т.е. например при вводе 24,7 будет выведено да ( 24/7 = 3,4285...)