Можно использовать другие команды? Например 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>
Photomath вот это приложение
Юля использовала команду: 2) a2:=a div 10 mod 10;
1) a2:=a mod 10 div 10;
будет 0 в любом случае
число mod 10 = последней цифре числа
число div 10 - число без последней цифры, в случае однозначного числа - всегда будет 0
Например: (123 mod 10) div 10 = 3 div 10 = 0
2) a2:=a div 10 mod 10;
число div 10 = число без последней цифры
число mod 10 = последней цифре числа
Например: (123 div 10) mod 10 = 12 mod 10 = 2
3) a2:=a div 100 mod 10;
будет первая цифра трёхзначного числа
число div 100 = число без двух последних цифр, в случае трёхзначного числа - однозначное число
число mod 10 = последней цифре числа, в случае однозначного числа - самому числу
Например: (123 div 100) mod 10 = 1 mod 10 = 1
Скорей всего наблюдаем, если нам интересно то за чем мы наблюдаем, то эти моменты остаются у нас в голове.
<span>1. Раньше для работы в кабинете информатики ученики должны были приходить в сменной обуви и выглядеть аккуратно
</span><span>2. Когда все выходили из класса,дежурный проводил влажную уборку
</span><span>3.Нельзя было употреблять ненормативную лексику
4.В кабинете ученики были строго в белых халатах или в белой рубашке.
4 Когда все выходили из класса,дежурный проводил влажную уборку</span>
