Question

(34 балла) Даны целые числа а и b (а > b). Определить: Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; Остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC

Answer 1

var

 a, b: integer;

 c:real;

begin

read(a,b);

c:=int(a/b);

write('целочисленное деление : ',c,' остаток от деления : ',a-c*b);

end

Answer 2

ты шо ?

Answer 3

50 делится на 5

Answer 4

53/5 = (50 + 3)/5 = 10 (ост. 3)

Answer 5

ой,я написал одно,а посчитал другие числа.ну бывает

Answer 6

А можешь написать решение через цикл while?(pascal abc)