Можно использовать другие команды? Например 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>
9 декабря 1968 годду Дугласом Энгельбартом
А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.
Мальчик управляет собакой ,а мама сыном . Я так демую
Парень сидит и разговаривает по телефону по рисунку бы я сказала что он очень встревожен или удивлён от разговора видимо его что-то взволновало или встревожило или он услышал какую-то тему которая его удивила