Остаток от деления - Pascal
Формулировка задачи:
Вычислите остаток от деления двух чисел нацело, используя операцию вычитание. Задача должна быть решена без команд div и mod. Пример: 7/2=3, остаток 1. Нужно записать так(((7-2)-2)-2)=1.
Решение задачи: «Остаток от деления»
textual
Листинг программы
var
temp,x,y:integer;
begin
readln(x,y);
temp:=x;
while temp-y>=0 do
temp:=temp-y;
writeln('ГЋГ±ГІГ*òîê îò äåëåГ*ГЁГї Г·ГЁГ±ГҐГ« ',x,' ГЁ ',y,' = ',temp)
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д