Решить задачу в Pascal ABC
Даны два целых числа. Разделить каждое число на целое число d.
Найти произведение их остатков от деления.
Ответы
Ответ дал:
0
var
a, b, d: integer;
begin
readln(a, b, d);
writeln((a mod d) * (b mod d));
end.
a, b, d: integer;
begin
readln(a, b, d);
writeln((a mod d) * (b mod d));
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад