Составить алгоритм, находящий остаток от деления одного натур-го числа на другой( диф и мод не использовать)

xottabыs4 xottabыs4    3   07.06.2019 10:10    0

Ответы
иван1141 иван1141  07.06.2019 10:10
Можно использовать другие команды? например trunc? если да, то вот: var i,j,n: integer; s: real; begin readln(i,j); s: =i/j; n: =i-j*trunc(s); {функция trunc выделяет целую часть} writeln(n); end.если нельзя пользоваться trunc, то вот другое решение: var i,j: integer; s,m: real; beginreadln(i,j); m: =i/j; s: =m; while s> =1 do  s: =s-1; m: =m-s; writeln(i-j*m; ); end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика