Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
<span>end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
<span>end.</span></span>
1=>23
1) 1*3=3(1)
2)3*3=9(1)
3)9-1=8(2)
4)8*3=24(1)
5)24-1=23(2)
Ответ: 11212
Вот пример правильной трассировочной таблицы. Впредь делайте именно так.
Из таблицы видно, что в момент завершения программы переменная с будет иметь значение 2.