Решить задачу в Pascal ABC

Даны два целых числа. Разделить каждое число на целое число d.

Найти произведение их остатков от деления.

Question

Горгоний

7 января, 11:59

+2

Ответы (1)

Знаете ответ на вопрос?

Моника · Answer 1

var

a, b, d: integer;

begin

readln (a, b, d) ;

writeln ((a mod d) * (b mod d)) ;

end.

Решить задачу в Pascal ABCДаны два целых числа. Разделить каждое число на целое число d.Найти произведение их остатков от деления.