Можно использовать другие команды? например 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
